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Einleitung 


Das Ihnen hier vorliegende Buch bietet in 12 Kapiteln und einem umfangreichen 
Anhang alle die Informationen, die im BASIC-Handbuch der LASER-Computer 
zu kurz gekommen sind. 


Das System hält für den Anwender eine Fülle von weiteren Dienstleistungen be- 
reit, die jetzt mit Kenntnis des Betriebssystems genutzt werden können. Dies sind 
unter anderem: Rechnen mit 16 signifikanten Stellen, ON...GOTO und ON... 
GOSUB, FRE(0) und das Auffinden von Variablen im Speicher. Binäre Dateien 
lassen sich nun abspeichern und starten, der Anschluß von Peripheriegeräten über 
den USER-Port wird dokumentiert. 


Im übrigen beantwortet das Buch die Fragen, die dem Verfasser von seiten der 
Anwender immer wieder am Telefon gestellt wurden. Zusammen mit dem BASIC- 
Handbuch ist so schon ein besserer Stand der Dokumentation und Handhabung 
erreicht. Noch offene Fragen können in einem folgenden Buch behandelt werden. 


Zur Orientierung: 


Bevor Sie mit diesem Buch arbeiten, sollten Sie die folgenden drei Punkte stets 
beachten: 


1. Es existieren für den hier beschriebenen Computer (LASER 110/210/310 ünd 
VZ 200) zwei Software-Versionen: LASER-BASIC Vers. 1.1 und Vers. 2.0. 
Der gravierende Unterschied besteht im Aufbau des Bildes im Video-RAM. 
Vers. 1.1 beschreibt das RAM mit normalen Zeichen, während Vers. 2.0 den 
Bildschirm mit inversen Zeichen initialisiert. Das Buch bezieht sich stets auf 
die Vers. 1.1. 


Sollten Sie die BASIC-Version 2.0 in Ihrem Gerät haben, so halten Sie während 
des Einschaltens die CTRL-Taste gedrückt, der Bildschirm wird dann wie mit 
Vers. 1.1 arbeiten, und alle Beispiele hier im Buch werden einwandfrei arbeiten. 

2. Es wird in diesem Buch viel auf die BASIC-Erweiterung "BASIC-UP'’ Bezug ge- 
nommen. Wenn Sie diese Kassette besitzen, sollten Sie wissen, daß mit 'BASIC- 
UP” nur BASIC-Programme arbeiten, die mit "BASIC-UP” erstellt wurden. 

3. "EXTENDED BASIC”, ein weiteres BASIC-TOOLKIT, ergänzt '"BASIC-UP’' 
mit einem umfangreichen Grafik-Befehlssatz. CIRCLE, RECT, PAINT, PLOT... 
TO..., GCLS und LPEN für den Lichtgriffel sind nur einige Beispiele. 

Das Buch ist im übrigen so gegliedert, daß die einzelnen Kapitel in sich abgeschlos- 

sen sind und ohne Rücksicht auf die Reihenfolge durchgearbeitet werden können. 


Hamburg, im Juli 1984 
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1 Zahlen, Zeichen, Variable 


Zahlen- und Zeichenformate 
Variablenarten 


LET, DEFINT, DEFSNG, DEFDBL 


Ihr LASER-Computer verarbeitet Zahlen, die sich in normaler 
Schreibweise nicht mehr ausdrücken lassen. Der Zahlenbereich 
ist, als Zehnerpotenzen ausgedrückt, größer als 1*10-39 und 
kleiner als 1*1039. In den Computer werden solche Zahlen 
eingegeben in der Form: 1E38 oder 1E-38. Die Zahl 1812 wird 
in dieser technisch-wissenschaftlichen Darstellung als 1.812E3 
geschrieben. Natürlich versteht der Computer auch die nor- 
male Schreibweise. Wenn er jedoch eine Zahl gleich oder größer 
als 999999.5 ausgeben soll, so schaltet er im Normalfall auf 
das technisch-wissenschaftliche Format um (1.2). Ist die Zahl 
kleiner als 0.0099, so wird ebenfalls auf das technisch-wissen- 
schaftliche Format umgeschaltet. 


? 2.33 E 3 <RETURN> 
2330 


? 3470828 <RETURN> 
3.47083 E+06 





Single Precision 


Diese Ausgabe erfolgt mit sechs Ziffern, die restlichen Stellen 
werden gerundet (1.3). 


Diese Art der Zahlendarstellung wird als ’Fließkommazahl, 
einfache Genauigkeit’ bezeichnet (engl. Floating Point, Single 
Precision). Nach dem Einschalten befindet sich der Rechner in 
dieser Darstellungart. Bei allen Berechnungen ist besonders 
der Rundungsfehler zu beachten! 


Ist der Rundungsfehler nicht akzeptabel und wird eine größere 
Genauigkeit des Rechenergebnisses notwendig, so kann auf 
‘doppelte Genauigkeit’ (Double Precision) umgestellt werden. 
Die Zahlen werden zur Eingabe oder im Programm technisch- 
“wissenschaftlich definiert, jedoch ist das ’E’ durch ein 'D’ 
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zu ersetzen (1.4). Die Zahlendarstellung erfolgt jetzt mit 16 
signifikanten (gültigen) Ziffern, und der Rundungsfehler wird 
für die meisten Anwendungen vernachlässigbar klein. 


? 8.1234567 <RETURN> 


.123457 


? 1/6 D © 
. 166666666666666 7 


VARIABLEN-TYP-TABELLE 





Variablen-Speicher 


Bisher haben wir die Zahlendarstellung direkt als 'Konstanten’ 
betrachtet. Im Programm werden Zahlen in Speichern abge- 
legt. Dort können sie im Programmlauf geändert und mani- 
puliert werden. Diese so abgespeicherten Zahlen werden als 
"Variable bezeichnet. Solche Zahlenspeicher, numerische 
Variable genannt, werden vom Programm ohne besondere 
Vorkehrungen stets für Single Precision-Zahlen angelegt. Um 
Zahlen im Format doppelter Genauigkeit abzuspeichern, ist 
ein Eingriff in die Variablenhandhabung des BASIC-Interpre- 
ters notwendig: Ab der Adresse 30977 hat der Interpreter 
eine Tabelle von 26 Bytes Länge angelegt. Jeder Tabellen- 
platz entspricht einem Buchstaben des Alphabets (1.5). Durch 
Eintragen von Kennzahlen (1.6) mit Hilfe der POKE-Anweisung 


FLAG VARIABLEN-TYP 


INTEGER-ZAHLEN 
ZEICHENKETTEN 
SINGLE PRECISION 
DOUBLE PRECISION 
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lassen sich Variable gruppenweise für einen entsprechenden 
Variablentyp erklären (deklarieren). 


Stringvariable und Integervariable können im Programm nun 
unter Weglassung des Typkennzeichners angesprochen werden. 
Ausdrücke wie Y = 12 statt Y% = 12 oder A=""ZEICHENKET- 
TE’ statt A$ = "ZEICHENKETTE’” sind dann möglich. 


Die Bezeichner bleiben aber vorrangig. Ist die Variablengruppe 
B für die Aufnahme von Intergerzahlen definiert, so wird der 
Stringspeicher BA$& trotzdem vorrangig für die Aufnahme von 
Zeichenketten angelegt. 


10 POKE 30978,8 
20 BZ = 1/6D 
30 PRINT BZ 


RUN 
.1666666666666667 





Variable doppelter Genauigkeit 


Beispielsweise werden mit POKE 30978,8 alle im Namen 
mit ’B’ anfangenden Variablen für die Aufnahme von Zahlen 
im ’Double Precision’-Format eingerichtet. Das sind Namen wie 
B, B9, BZ, B(5) oder BILD. 


Beachten Sie aber, daß Zuweisungen an Variable für doppelte 
Genauigkeit im technisch-wissenschaftlichen Format mit dem 
'D’ als Exponentenkennzeichen erfolgen müssen (1.7)! Wird 
im Beispiel (1.7) das D (DO) weggelassen, so ist das falsche 
Ergebnis 1/6 = .1666666 716337204. 


Operationen mit doppelter Genauigkeit sollten im Programm 
jedoch nur dort durchgeführt werden, wo die erhöhte Ge- 
nauigkeit des Ergebnisses erforderlich ist. Das Beispiel (1.8) 
braucht für 100 Multiplikationen doppelter Genauigkeit ca. 


POKE 30979,8: ’DBL 
c1 = 1.5D 

FOR I=1 TO 100 

c2 = 01 * 1.234 


NEXT 
PRINT C2 


xk*% 12 SEKUNDEN *%%%* 





ee 
FOR I=1 TO 190 
c2 = C1x* 1.234 


NEXT 
PRINT C2 


xAkk 2 SEKUNDEN x*#x* 





12 Sekunden, mit Single Precision jedoch nur 2 Sekunden (1.9). 
Außer der längeren Laufzeit muß für Variable doppelter Genau- 
igkeit als Nachteil auch der erhöhte Speicherraum in Kauf 
genommen werden (1.10). 


INTEGER 2» 5 BYTES 
SINGLE PREC.z 7 BYTES 


DOUBLE PREC.: 11 BYTES 
STRING : 6 +(LANGE) BYTES 





Integer-Variable 


Ein drittes Variablenformat läßt nur ganzzahlige Zahlen im 
Bereich von -32768 bis +32767 zu. Kleiner Speicherbedarf 
und schnelle Bearbeitung sind der Vorteil gezielter Anwendung 
dieser 'Integer-Variablen’. Solche Variablen können mit Hilfe 
der Tabellen (1.5) und (1.6) oder durch Kennzeichnung des 
Variablennamens mit einem nachgestellten ’%’ eingerichtet 
werden (1.11). 


Wandeln des Formats 


Variable können von einem Format zum anderen gewandelt 
werden. Jedoch sind Einschränkungen zu beachten: 


* Fließkomma zu Integer: Nachkommastellen werden 
abgeschnitten. Es erfolgt keine Rundung. Beispiel: 
A%=A (1.12). 

* Single Precision zu Double Precision: Ein vorher ein- 
getretener Rundungsfehler wird nicht rückgängig ge- 
macht. Beispiel: POKE 30978,8:B=A. 
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* Double Precision zu Single Precision: Es wird gerundet. 
Beispiel: POKE 30978, 8A =B. 


* Eine Wandlung vom Gleitkomma-Format nach Integer 
ist auch mit dem Ausdruck A = INT(B) möglich. 


10 A = 12.25 
20 Ar = A 
30 PRINT A« 


RUN 
12 





BASIC UP 


Mit der BASIC-Erweiterung 'BASIC UP’ entfällt die Einstel- 
lung des Variablentyps über die Tabelle im SEN. RAM. 
Statt dessen stehen die Anweisungen: 


BDEFINT 
BDEFSNG 
BDEFDBL 
für den Initialisierungsteil des Programmes zur Verfügung. 


Eine Liste der Variablen-Anfangszeichen ist anzuhängen. Alle 
Variablen, die dann diese Zeichen als erste im Namen führen, 
sind so für den entsprechenden Typ initialisiert (1.13). Eine 
Kennzeichnung der Integer-Variablen mit '%’ im Programmtext 
kann entfallen, wenn über die Tabelle oder 'BASIC UP’ eine 
entsprechende Vereinbarung getroffen wurde. 


NEUE ANWEISUNGEN 


BDEFINT 


BDEFSNG 
BDEFDBL 





Zeichenketten - Strings 


Der vierte Variablentyp: Die Zeichenkette oder 'STRING'. 
Dieser Variablenart können Zeichenketten (Ziffern, Buchsta- 
ben, Zeichen und Grafikzeichen), invers oder normal dar- 
gestellt, unter ihren Kodezahlen zur Speicherung zugewiesen 
werden. Diesen Variablen wird zur Kennzeichnung im Namen 
ein '$’-Zeichen (Dollar) zugeteilt. Auch diese Stringvariablen 
lassen sich über die Tabelle vordefinieren, Ihre Kennzahl ist ’3’. 
Informieren Sie sich über die Zeichencodes im Anhang 13. 


STEST, 


184 | 69 | 83 | 84 


SPEICHER 





BOOL’sche Variable 


Dieser Variablentyp sei als letzter erwähnt. In ihm wird das 
Ergebnis eines Vergleiches oder einer Verknüpfung zweier oder 
mehrerer Variablen festgehalten. Man nennt ihn auch "Wahr- 
heitsvariable’. 


Dieser Variablentyp wird normalerweise durch den Ausdruck 
nach IF... erzeugt und mit den Anweisungen nach THEN... 
und ELSE... sofort ausgewertet. Für spezielle Anwendungen 
läßt er sich einer numerischen Variablen (Integer) zuweisen 
und in späteren IF... THEN-Anweisungen auswerten. 


BOOL’SCHE VARIABLE 


-1 BZW. #9 
FALSCH: ) 


18 A=11: B=12: C=12: D=13 
280 X= B=C: Y= A>B: Z= AD 
38 PRINT X;Y;Z 

RUN 

=1 0’ 1 





Beispiel 1.17: Eine Variable wird auf Null getestet. Das Pro- 
gramm verzweigt, wenn A ungleich Null ist. 


Beispiel 1.18: Das Programm verzweigt, wenn A _ gleich O 
ist. 


IF A THEN GOTO 500 


IF NOT A THEN GOTO 500 
1.18 


13 


2 Felder: Organisierte Speicher 


Feldvariable: Listen, Tabellen und Karteien 
DIM 


Alle im Kapitel 1 angesprochenen Variablentypen lassen sich 
zu Speicherfeldern organisieren. Das Feld (engl. Array) be- 
kommt einen Namen (2.1). Der einzelne Speicherplatz inner- 
halb des Feldes wird durch einen in Klammern gestellten Index 
angesprochen (2.2). Dieser Index kann eine Konstante, eine 
numerische Variable oder ein numerischer Ausdruck sein (2.3). 


Der Vorteil dieser Organisation: Speicherplätze werden nicht 
mehr durch direkte Nennung ihres Namens angesprochen, 
sondern durch computergesteuerte Operationen. Beispiel 2.4 
gibt den Inhalt von 10 Variablen auf den Bildschirm aus. 


Feldvariable: Namen 


Feldvariable mit Index 
Konstante, Variable, Ausdruck 


AB(5), DC), EIKCINTO/ZI) 


108 FOR I=1 TO 10 
20 PRINT AB(D 


30 NEXT I 





Wird in einem Programm einer indizierten Variablen mit LET 
ein Wert zugewiesen, so legt der LASER automatisch ein 
Speicherfeld mit 11 Plätzen an und stellt den mit LET zuge- 
wiesenen Wert in den entsprechenden Speicherplatz ein (2.5). 
Einerseits bedeutet das für Felder mit weniger als 11 Speicher- 
plätzen eine nicht wirtschaftliche Speicherverwaltung (einige 
Plätze werden nicht belegt), andererseits muß mit dem BASIC- 


18 LET AB(5)=12.5 


RUN 
AB(®) 
AB(1) 


AB(5) 


AB(10) 





Interpreter für Felder mit mehr als 11 Plätzen eine Zuwei- 
sungsvereinbarung getroffen werden, so daß aus Gründen der 
Übersichtlichkeit des Programmes auf die automatische An- 
lage bei kleinen Feldern verzichtet werden sollte. 


Statt dessen wird mit dem BASIC-Schlüsselwort DIM (DIMen- 
sioniere) für jedes Feld die Speicherorganisation in ihrer Größe 
definitiv festgelegt. Die Anweisung (2.7) legt unter dem Varia- 
blennamen. AB 16 Speicherplätze, beginnend mit AB(0) bis 
AB(15) und dem Wert Null, an. 


Mehrere Felder können mit einer Anweisung initialisiert wer- 
den. Die benannten Felder werden mit ihrer Dimensionierung 
in einer Liste, durch Kommas getrennt, nach dem Wort DIM 
angegeben (2.8). Die DIM-Anweisung muß im Programm 
stets vor Zuweisung von Werten an die Feldvariablen stehen. 
Sie gehört also in den Initialisierungsteil des Programmes. 
Ein Feld darf im Verlauf des Programmes nur einmal mit DIM 
definiert werden. Der Versuch, ein Feld unter dem gleichen 
Namen mit anderer Ausdehnung zu dimensionieren, wird 
mit einer Fehlermeldung und einem Abbruch des Programm- 
laufes verhindert. (2.9). 


DIMensioniere 


2:6 


10 DIM AB(15) 


2=P 


10 DIM AB(15) ,D$ (5) ,„E1%(20) 
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10 DIM A$(4) 
28 DIM A$C5) 


RUN 
? REDIM’D ARRAY ERROR IN 20 





Eine weitere Fehlermeldung des Betriebs-Systems wird immer 
dann ausgegeben, wenn auf Feldvariable zugegriffen wird, 
deren Index außerhalb des dimensionierten Bereiches liegt 
(2.10). 


10 DIM A(5) 
20 PRINT AC12) 


RUN 
? BAD SUBSCRIPT ERROR IN 20 
210 





Tabellen und Karteien 


Bisher wurden nur Felder in Form einer Liste betrachtet (2.5). 
Der LASER erlaubt zwei weitere Organisationsformen: Das 
sind Felder in Tabellenform, die eine Anordnung der Varia- 
blen nach Zeile und Spalte ermöglichen, und Felder in der 
Form einer Kartei, bei der jede Karte wiederum in Tabellen- 
form angelegt ist. 


Das Feld in Tabellenform, auch ’zweidimensionales Feld’ oder 
Matrix’ genannt, wird nach dem Feldnamen mit zwei Indizes 
angesprochen. Der erste benennt die Zeile der Tabelle, der 
zweite die Spalte (2.11 und 2.12). Dementsprechend erfor- 
dert die Organisation in Karteien die Angabe von drei Index- 
zahlen: Spalte und Zeile der Tabelle und Nummer der Karte. 
Die Speicherorganisation erstreckt sich hier in drei Dimensionen 
(2.13, 2.14). 





108 DIM E1% (3,3) 
20 E1%(1,2)=12 
30 PRINT E1%(1,2) 
RUN 

12 


10 DIM 2%(3,3,3) 
20 2%(1,.0,1)=12 
30 PRINT Z%(1,0,1) 
RUN 


12 





Grenzen nur durch den verfügbaren Speicherraum 


Es kann pro Feld eine sehr hohe Anzahl von Elementen pro- 
grammiert werden, die einerseits durch den verfügbaren Spei- 
cherraum beschränkt wird, zum anderen läßt aber das LASER- 
BASIC nur eine bestimmte Ausdehnung der Felder zu. Die 
Begrenzung für die entsprechenden Variablentypen sind der 
Tabelle 2.15 zu entnehmen. Sie wurden für den LASER 110 
ermittelt. Die Werte in dieser Tabelle beschreiben nur die in 
der DIM-Anweisung höchste zulässige Dimensionierung, eine 
Fehlermeldung wird je nach Speichergröße früher auftreten. 


DIM dimensioniert alles!! 


Die DIM-Anweisung gestattet nicht nur die Anlage von Feldern 
in der beschriebenen Art, sondern legt auch die gesamte Varia- 
blentabelle durch Nennung des Variablennamens nach DIM an. 
(Siehe hierzu auch Kapitel 3 und Anhang 9.) Es wird damit 
möglich, im Initialisierungsteil des Programmes die Variablen- 
tabelle sinnvoll anzulegen und damit Einfluß auf die Verar- 
beitungsgeschwindigkeit des Interpreters zu nehmen. 


DIM A, Z%, C1$, F(5) 


Tabelle 2.15 Begrenzung der Feldelemente 


INTEGER SNG.PREC. DBL.PREC. STRING 


17000 8509 4250 
129x129 91*91 64x64 
23*23%*23 19*19*19 15%*15%*15 





Diese Anweisung legt die Variablen A und Z% als erste und 
zweite mit dem Wert Null in der Variablentabelle an, als dritte 
dann die Stringvariable C1% und dimensioniert dann das Feld 
F mit 6 Elementen. 
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PUNKTE NOTEN 





10 °INITIALISIERUNG UND MENUE 

20 CLEAR 1000: DIM NO$(10,1,6) 

40 RESTORE: CLS 

50 FOR I=8 TO 6: READ N0$(0,0,1),N0$(0,1,1) 

60 : PRINT 1+1;"=";N08(0,0,T1) ,N0$(0,1,D 

70 NEXT: PRINT 

100 PRINT"WELCHES FACH ";: INPUT K 

110 IF K<1 OR K>7 THEN PRINT CHR$(27) ;CHR$C27):: GOTOT00 
115 K=K-1 


120 PRINT 
121 PRINT" 1 = EINGABE" 
122 PRINT" 2 = AUSGABE" 


129 PRINT"IHRE WAHL” ;: INPUT L 
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130 IF L<1 OR L>2 THEN PRINT CHRS$(27);CHR$(27): GOTO129 
140 IF L=1 THEN 300 

141 IF L=2 THEN 600 

300 ’EINGABE 

310 CLS: PRINT NO$(0,0,K) ,N08(0,1,K): PRINT 

320 PRINT" ARBEIT NR. " 

330 PRINT" ANZ. PUNKTE " 

340 PRINT" NOTE u 

350 PRINTQa85,"";: INPUT I 

355 IF I>10 THEN 350 

360 PRINTa117,”";: INPUTP$ 

370 PRINTQ149,"”";: INPUT N$ 

380 NO$S(1,0,K)=P$: NO$CI,1,K)=N$ 

390 PRINT: PRINT"MENUE (JA/NEIN) ";: INPUTK$ 

400 IF LEFTSCK$,1)="N” THEN 300 ELSE 40 

600 "AUSGABE 

610 CLS: MP=0: MN=0: Z=0 

620 FOR 1=0 TO 10: PRINT NO$(C1,0,K) »NO8CI,1,K): GOSUB 900: NEXT 
630 Z=Z-1: IF Z=0 THEN 800 ELSE PRINT MP/Z,MN/Z: GOTO8OO 
800 "RUECKKEHR ZUM MENUE 

810 PRINT” MENUE (JA/NEIN) ";: INPUT K$ 

820 IF LEFTSCKS,1)="J" THEN 40 ELSE END 


900 "MITTELWERTE BILDEN 

910 IF NO$CI,0,K)<>"" AND NOSCI,IKI<>"” THEN Z=2+1 
920 MP=MP+VAL(NO$(1,0,K): MN=MN-+-VAL(NO$(CI:1,K)) 
990 RETURN 

1000 DATA DEUTSCH,HERR SOETHE,ENGLISCH,FR MOUSE 
1020 DATA FRANZOES,FRL PARIS,BIOLOGIE,HERR BAUM 
1040 DATA PHYSIK,HERR OHM,MATHE,HERR A RIESE 

1060 DATA GESCHICHTE,FR HISTOR 





Das Programm 2.17 benutzt zum Ablegen von 10 Zensuren 
in 7 Fächern ein dreidimensionales Feld (Kartei) (2.16). Sehen 
Sie sich besonders die Handhabung des Feldes an: 

Zeile 20 dimensioniert das Feld. 

Zeile 50 liest in die Zeile O jeder Tabelle die Überschrift 

ein. 

Zeile 310 gibt die Überschrift der gewählten Tabelle aus. 

Zeile 380 liest Werte in eine definierte Zeile ein. 

Zeile 620 gibt den Inhalt einer Tabelle aus. 

Zeile 910 prüft, ob eine Zeile beschrieben ist. 

Zeile 920 addiert die Inhalte einer Zeile auf. 
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3 65536 Speicher werden verwaltet 


STACK 
GRTDGE 


INTVTR 


. 
U 


. 
' 


INTSVC 





EPROM-Anwender-Programme, Zeiger im Betriebssystem; 
mit NEW gelöschte Programme wieder herstellen; Free Bytes 


CLEAR, NEW, FRE (0), FRE ("), MEM, VARPTR 


Die LASER-Computer (110, 210, 310, VZ 200) sind als Z-80 
Systeme organisiert. Anhang 10a gibt eine Übersicht über die 
physikalische Speicherverteilung des Computers. Anhang 10c 
ergänzt sie mit der Lage der Speichererweiterungen. Verwaltet 
werden diese Speicherplätze vom Betriebssystem und dem 
BASIC-Interpreter, die selber 16 KB Speicherraum belegen 
(ROM 1, ROM 2). 


NAME GAME 
EQU 7FFFH 
EQU 4000H 
ORG 787DH 
DEFS 3 ;‚INTERRUPT EXIT LOC 


ORG CRTDGE 

DEFB OAAH ;1ST PATTERN 

DEFB 055H :2ND PATTERN 

DEFB OETH ;3RD PATTERN 

DEFB 018H ;4TH PATTERN 

LD SP,STACK ;RE-INITIALIZE STACK 

LD A,OC3H :JP OBJ CODE 

LD CINTVTRISA 

LD HL, INTSVC ;GET SERVICE ROUTINE ADDR 
LD CINTVTR+1) »HL :MODIFY EXIT LOC 


CALL KEYBRD ;USER WRITTEN INT SERVICE ROUTINE 


POP HL ;CLEAR STACK 
POP HL ;RECOVER HL REG 
POP DE ‚RECOVER DE REG 
POP BC ‚RECOVER BC REG 
POP AF :RECOVER AF REG 
EI ‚„ENABLE INTERRUPT 
RETI 

3,1 
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EPROM-Programme 


Nach dem Einschalten prüft das Betriebssystem, ob ab den 
Adressen 4000H, 6000H oder 8000H die Bitmuster AAH, 
55H, E7H und 18H vorhanden sind. Werden sie in einem dieser 
Bereiche festgestellt, so übergibt das Betriebssystem die Kon- 
trolle an das nach diesen vier Bitmustern beginnende Anwender- 
programm. Programm 3.1 ist ein Beispiel zur Einbindung 
eigener Programme. 


Zeiger im Betriebssystem 


Der BASIC-Interpreter verwaltet seinen RAM-Bereich (7AE9H 
bis FFFFH) über eine Anzahl von ’Zeigern’, die zusammen 
mit anderen Systemvariablen nach dem Einschalten im RAM- 
Bereich (7800H bis 7AE8H) angelegt werden. Siehe Anhang 11. 


Zeiger sind zwei Bytes breite Register, in denen sich der BASIC- 
Interpreter Adressen der Daten- und Programmtextbereiche 
merkt, die er zur Verwaltung braucht. 


Für den BASIC-Programmierer sind die Zeiger HP (Beginn des 
BASIC-Textes) und TOM (Zeiger auf die letzte RAM-Zelle) 
von besonderem Interesse. Ein Umsetzen dieser Zeiger schafft 
vor BASIC geschützten Speicherraum zur Ablage von Maschi- 
nen-Programmen. Üblicherweise werden bei den Z-80 BASIC- 
Versionen diese Programme durch das Umsetzen des Zeigers 
TOM (Top Of Memory) geschützt. Lesen Sie hierzu auch 
Kapitel 15! 


CLEAR 


Die Anweisung CLEAR löscht alle Variablen und dimensio- 
nierten Felder. Die Reservierung wird rückgängig gemacht. 
CLEAR ist ohne Parameter zu geben. Reservierungen für 
Zeichenketten werden nicht beeinflußt. 


10 CLEAR 1000 


PRINT PEEK (30898) 


Anhang 11 zeigt den Speicherbereich zur Ablage von Zeichen- 
ketten und den dazu gehörenden Zeiger STSP ‚String Space). 
Nach dem Einschalten des Computers sind für die Ablage von 
Zeichenketten 50 Bytes reserviert. Mit der Anweisung CLEAR 


TE ee 


und dem entsprechenden Parameter kann der BASIC-Program- 
mierer diesen String-Bereich für die Bedürfnisse seines Program- 
mes einrichten (3.2). 


Soll das Programm in allen möglichen Kombinationen der 
LASER-Computer und Speichererweiterungen laufen und wenn 
maximaler Platz für die Ablage von Zeichenketten gefordert 
ist, dann bietet sich der Zeiger TOM als Maß für die Größe 
des mit CLEAR zu dimensionierenden Stringspeicherbereiches 
an. 


Das MSB (Most Significant Byte - höherwertiges Byte) des 
Zeigers enthält die Seitennummer der höchsten, beim Speicher- 
test festgestellten RAM-Zelle. Mit der Anweisung (3.3) ist die 
für das System zutreffende Seitenzahl zu ermitteln (3.4). 


Soll das Programm universell seinen String-Speicherbereich 
selbst dimensionieren, so kann die Programmzeile (3.5) ver- 
wendet werden. Die darin genannte Konstante soll den Spei- 
cherbedarf für die Geräte-Kombination mit dem geringsten 
RAM-Bereich angeben. 


78B2H 30898 (MSB - TOM) 


LASER 110 
Vz 200 
LASER 210 
L110 + T6KB 
VZz200+ 16KB 
L210 + 16KB 
LASER 310 


LASER310 + 16KB 


64KB 





FFH 
FFH 


20 CLEAR 1000+(PEEK(30898) -127)*256 
> 


NEW 


Anhand der Grafik im Anhang 11 ist leicht festzustellen, was 
die Anweisung NEW bewirkt: Sie setzt alle Zeiger auf den Wert 
nach dem Einschalten des Computers zurück. Das Programm 
ist dann zwar noch vorhanden, der BASIC-Interpreter hat 
es aber gewissermaßen "vergessen. 


———————— nn 


NACH NEW: 


31464 31465 


10 A=12 
20 PRINTA 





Ein versehentlich gelöschtes Programm kann durch einige 
POKE-Anweisungen dem Interpreter wieder in Erinnerung’ 
gebracht werden. Dafür ist nur die Kenntnis notwendig, wie die 
Textablage organisiert und verwaltet wird. Anhang 16 zeigt 
dies in grafischer Form. 


Jede Anweisungszeile beginnt mit einem '0'-Byte. Darauf 
folgt ein zwei Bytes breiter Zeiger auf den Anfang der näch- 
sten Zeile. Anschließend wird die Zeilennummer in zwei Bytes 
abgespeichert, gefolgt vom BASIC-Text der Zeile. Alle Schlüs- 
selworte werden umkodiert in ein Byte, das Werte > 127 
erhält und in die Speicher eingetragen. Diese codierten Bytes 
nennt man auch 'tokens’. Alle anderen Zeichen werden mit 
ihrem ASCII-Code abgelegt, der immer kleiner als 128 ist. 


Eine Tabelle der Schlüsselworte und ihrer Codezahlen ist im 
Anhang 17 zu finden. Anhang 13 gibt den ASCII-Code wieder. 
Nach der ersten Anweisungszeile folgt wieder ein '0’-Byte 
als Beginn der zweiten Zeile. Das Ende des BASIC-Textes 
wird markiert, indem die zwei Bytes, auf die der Zeiger der 
letzten Zeile‘ zeigt, auf ’0’ gesetzt werden. Ein BASIC-Pro- 
grammtext wird im Speicher also immer mit einer Folge von 
dreimal ’0’ abgeschlossen. 


Ist kein Programm im Speicher vorhanden, also nach NEW, 
folgen auf die ‘0’ in Zelle 74E8H (Markierung erste Zeile) 
noch zweimal ’0’ (3.6). Der Zeiger TP (Ende BASIC-Text/ 
Anfang Variablen-Tabelle) zeigt nach NEW auf das erste Byte 
nach den drei Null-Bytes. 


Um ein gelöschtes Programm zu restaurieren, ist also nur der 
Zeiger im BASIC-Text auf die zweite Zeile und der Zeiger 
TP auf das erste Byte nach den drei Null-Bytes am Ende des 
früheren BASIC-Textes zu richten. Nachfolgend soll dies mit 


0 
31466 


—— 2 


dem kurzen Programm 3.7 versucht werden. Das Programm 
sollte eingegeben werden, und dann sollte mit der Anweisung 
(3.8) der im Speicher erzeugte BASIC-Code sichtbar gemacht 
werden. Er entspricht dem im Anhang 16 dargestellten Code. 
Besonders sind die Werte der Zeiger zu beachten. Der Zeiger der 
ersten Zeile im Text zeigt auf das erste Byte des Zeigers der 
zweiten Zeile. Alle Zeilen des BASIC-Programmes sind so 
miteinander verkettet, und zur Abarbeitung des Programmes 
'hangelt’ sich der Interpreter anhand dieser Zeiger durch den 
Text. Der Zeiger TP zeigt auf das erste Byte nach Textende. 


FOR 1=0T018:?PEEK(31464+T1) ; :NEXT 
Mit NEW gelöschtes Programm wiederherstellen 


Das Programm (3.7) wird nun mit ‘NEW’ gelöscht. Aus dem 
Aufbau des BASIC-Textes kann auf die ungefähre Lage des 
Zeigers der zweiten Zeile geschlossen werden. Mit PEEK-An- 
weisungen von der Tastatur her ist seine Adresse nun genau zu 
ermitteln. Ist die ’0’, mit der der Beginn der zweiten Zeile 
markiert wird, gefunden, so steht fest, daß der gelöschte Zeiger 
der ersten Zeile auf die Zelle 31474 zeigen muß (3.9). Die so 
ermittelte Adresse ist nun in den niederwertigen und den 
höherwertigen Teil zu zerlegen (3.10). Anschließend werden 
die beiden so ermittelten Dezimalzahlen mit Hilfe der POKE- 
Anweisung in die beiden Zellen des Zeigers eingetragen (3.11). 
Damit ist der durch NEW gelöschte Zeiger wiederhergestellt. 


?PEEK (31472) 
>0 

?PEEK (31473) 
0 


? INT (31474/256) 


122 
? 31474-(122*256) 
242 


POKE 31465 ,242 
POKE 31466,122 





—————— Tun 


Der nächste Schritt ist nun die Restaurierung des Zeigers TP 
auf das Textende. Auch hier muß die vermutete Lage des 
Textendes im Speicher mit PEEK-Anweisungen ermittelt wer- 
den. Keinesfalls dürfen irgendwelche Schleifen zum Durchsu- 
chen der Speicher formuliert werden, da die damit verbundene 
Anlage von Variablenspeichern den BASIC-Text weiter zer- 
stören würde. Ist das Textende (dreimal '0’) gefunden, kann 
der Zeiger unter der Adresse 30969, 30970 wiederhergestellt 
werden. Der Vorgang ist der gleiche wie in (3.10, 3.11). Zu 
beachten ist, daß die PEEK-Anweisung als Argument ab Adresse 
32760 negative Integer-Zahlen haben muß. Ein Konvertierungs- 
programm zeigt (4.7). 


Free Bytes 


Das LASER-BASIC kennt die Anweisung FRE (0) zur Errech- 
nung des noch freien RAM-Speicherraumes nicht. Aus den 
Werten der Zeiger, die den RAM-Bereich verwalten, ist diese 
Information aber abzuleiten. Anhang 11 zeigt, daß die Dif- 
ferenz zwischen den Zeigern FSL und STSP dem freien RAM- 
Bereich in etwa entspricht. Das kurze Programm (3.12), ange- 
hängt oder eingebunden in das in Bearbeitung befindliche Pro- 
gramm, wird nach Aufruf die Anzahl der noch freien Bytes 
ausgeben. Der Stackbereich zur Laufzeit des Programmes 
wird nicht erfaßt. 


Die Routine zur Errechung des freien Speicherraumes ist im 
BASIC-Interpreter vorhanden, lediglich das entsprechende 
Schlüsselwort wird nicht erkannt und führt zur Ausgabe einer 
‘0’, da FRE als Variablenname interpretiert wird (3.13). 





100 ST=PEEK(30881) x256+PEEK (30880) 
110 FS=PEEK(30974) #256+PEEK (30973) 
120 PRINT "FREE=";ST-FS 







? FRE (9) 


Ö 


>00 PRINTPRINT (9) 


POKE 31470,218 
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FRE (0) 


Die Funktion läßt sich aber auf folgende Weise aktivieren: 
Es wird eine Dummy-Zeile als erste Zeile des Programmes 
eingegeben (3.14). Anhang 16 zeigt den Aufbau der ersten 
Zeile. Die beiden PRINT-Anweisungen werden als Tokens 
mit der Codezahl 178 in den beiden RAM-Zellen 31469 und 
31470 erscheinen. Wird das Token in 31470 durch das Token 
für FRE ersetzt, so wird der BASIC-Interpreter die Zeile als 
PRINT FRE (0) lesen und korrekt ausführen. 


Das Token (verschlüsseltes Befehlsbyte im Speicher) für FRE 
ist 218. Die Anweisung (3.15) ersetzt das Token ’PRINT’ 
durch das von 'FRE’.Die Zeile wird nach dieser Manipulation 
nicht mehr korrekt gelistet, aber ausgeführt (3.16, 3.17). 
Das Anwenderprogramm kann nun geschrieben werden. Alle 
Editierfunktionen werden die Zeile 500 berücksichtigen. Andere 
Zeilen können vor und nach dieser Zeile angeordnet werden. 


Die Schreibweise FRE (0) der Funktion liefert als Resultat 
den noch freien Speicherplatz zwischen den Zeigern FSL und 
STSP. Der Wert ist abhängig von der Größe des Programmtex- 
tes, der Anzahl und Art der Variablen und dem mit CLEAR 
reservierten Stringbereich. 


LIST 
>00 PRINT 
READY 





Der Müll-Sammler 


In der Schreibweise FRE (’’) wird der für Zeichenketten 
zur Verfügung stehende Speicherplatz festgestellt, gleichzeitig 
wird der Stringbereich überarbeitet, und es werden nicht mehr 
benötigte Zeichenketten entfernt. Es wird mit der in das Pro- 
gramm eingebundenen Funktion mehr Speicherplatz während 
der Laufzeit des Programmes geschaffen (3.18). 


500 PRINTPRINT”" 


POKE 31470,218 


100 CLEAR 1000 


LIST 


100 CLEAR 1000 


500 PRINT 
READY 


RUN 
1000 
READY 


SFRE (®) 
BFRE ("") 
EMEM 





TIVARPTR (AS) 


MEM 


Die Anweisung MEM ohne Parameter liefert wie FRE (0) 
den noch freien Speicherplatz. 


BASIC-UP 


Die BASIC-Erweiterung BASIC-UP gestattet die Aufnahme 
der vorher beschriebenen Anweisungen in das Programm. 
Es ist jedoch vor jeder Anweisung das Zeichen [SHIF ne ge- 
ben (3.19). 


Eine weitere Funktion, die sich der Zeiger der RAM-Verwaltung 
bedient, ist die VARPTR-Funktion. In der Form (3.21) liefert 
sie die Adresse der als Argument benannten Variablen, siehe 
auch Anhang 9. 


VARPTR 


Auch hier kann mit dem Token 192 für VARPTR ohne BASIC- 
UP gearbeitet werden. Es kann die Anweisung nach dem Ver- 
fahren wie in (3.14 - 3.18) gezeigt, implementiert werden. 


Die Anweisung (3.22) schaltet BASIC-UP ab. Es werden die 
Zeiger der RAM-Verwaltung re-initialisiert. 


ee ——n 7 


PRINTEVARPTR (AS) 


BSYSTEM 
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4 PEEK und POKE und das Integer-Format 


Umrechnen natürlicher Integer-Zahlen in vorzeichenbehaftete 
Integer-Zahlen 


Die Anweisungen PEEK (AD) und POKE AD,WERT verlangen 
die Adressenangabe im Integer-Format. Im Kapitel 1 ist dieses 
Format kurz beschrieben: Es stellt Zahlen ohne Dezimalbruch 
dar, die speicherintern in zwei Bytes codiert werden. 


Mit zwei Bytes, entsprechend 16 Stellen binär, lassen sich Zah- 
len im Bereich von O bis 65535 darstellen. In diesem Format 
werden Zahlen intern vom Betriebssystem bearbeitet. 


Das Zahlenformat Integer des BASIC-Interpreters wird zur 
Unterstützung der Arithmetik in negative und positive Zahlen 
aufgeteilt (4.1). Als Vorzeichen dient das höchstwertige Bit 15 
(4.2). Mit den Bits O bis 14 können Zahlen von O bis 32767 
dargestellt werden. Negative Zahlen werden mit gesetztem Bit 
15 codiert. Sie werden als Zweierkomplement dargestellt. 


Aus der Sicht des Programmierers, der mit den Anweisungen 
PEEK und POKE die Speicherzellen lesen oder ändern will, 
und der deshalb einen Zahlenbereich von O bis 65535 braucht, 
ist mit negativen Zahlen nicht viel anzufangen. 


Die Zahlen O0 bis 32767 (7FFFH) werden intern in 16 Bit 


INTEGER-ZAHLENFORMAT: 


-32768 -- ® -- +32767 


BIT15: VORZEICHEN: 


: POSITIV 
: NEGATIV 
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normal dargestellt und sind als Adressenangabe einsetzbar 
(4.3). Die nächst höhere Zahl 32768 (8000H) wird mit ihrem 
Wert beibehalten, bekommt aber durch das gesetzte Bit 15 
ein negatives Vorzeichen, um den sonst nicht sehr sinnvollen 
Wert -O zu vermeiden. 


Die folgende Zahl 32769 (8001H) wird folgendermaßen kon- 
vertiert: Aus den Bits O bis 14 wird über das Einerkomplement 
das Zweierkomplement gebildet, Bit 15 wird zum Zeichen 
negativ’ gesetzt. Bit O bis 14 stellen den Wert 32767 dar, mit 
gesetztem Bit 15 dann -32767 (4.5). 


Aus diesen Erkenntnissen heraus lassen sich in (4.6) natürliche 
Zahlen, hexadezimale Zahlen und die Zahlen des arithmetischen 
Integer-Formates gegenüberstellen. Zum Umrechnen der na- 
türlichen Zahlen in das Integer-Format dient Programm (4.7). 


BINARE ZAHLEN: 


d HO00 Bodo HODDd HO00 
32767 9111 1111 1111 11119 


32768 1000 O000 DO0O BO00 


32769 (BIT 0-14) 000 DOoO MBO00 9001 
1ER KOMPLEMENT 111 1111 1111 1119 
2ER KOMPLEMENT 


WERT 


VORZEICHEN 


ZAHL 


0009 
0001 


TFFF 
8000 
8001 


FFFE 
FFFF 





111 1111 11173 1119 
32767 

1 

-32767 


32767 
32768 
32769 


65534 
65535 


HEXADEZIMAL INTEGER NATÜRLICHE ZAHLEN 
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K=32768 
INPUT A 
IF A<K PRINT A: GOTO 20 


A=A-K 

A=(NOT A) +1 
A=A+K 

PRINT -A: GOTO 20 





5 Anmerkungen zu PRINT und LPRINT 


PRINT, ''5", ",7, PRINT AT, PRINT USING, LPRINT 


Die Ausgabe an Bildschirm und Drucker folgt bestimmten Re- 
geln. Nachfolgend werden diese Funktionen eingehender 
erörtert. Dazu folgende Übersicht: 

. PRINT 

. DAS SEMIKOLON ’;’ 

DAS KOMMA °,° UND TAB (X) 

PRINT AT ’9' 

PRINT USING 

LPRINT 


ouırwwm—_ 


PRINT 12 
12 


PRINT "HALLO" 
HALLO 


A=3: B=5 
PRINTA 
3 


PRINT 3+5 


8 


PRINT SQR(8) 
_2.82843 


A$S="HALLO” 
PRINT A$ 
HALLO 


PRINT LEFT$(A$,3) 
HAL 
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5.1 PRINT 


Die PRINT-Anweisung gibt Daten (numerische oder Zeichen- 
ketten) an den Bildschirm aus. Nach PRINT kann eine Funktion 
oder ein Ausdruck genannt werden, dessen Resultat dann auf 
den Bildschirm ausgegeben wird (5.1.1). 


In den nebenstehenden Beispielen wird das Zeichen '_’ (der 
Unterstreichungsstrich) für ein Leerzeichen (SPACE) verwendet. 
Der erste wichtige Punkt: Die Ausgabe auf den Bildschirm 
wird vom Betriebssystem immer mit den Funktionen "Wagen- 
rücklauf’ und ’Zeilenvorschub’ abgeschlossen. Diese aus der 
Schreibmaschinentechnik übernommenen Steuerbefehle bewir- 
ken, daß die nächste PRINT-Anweisung die Datenausgabe 
am Anfang der folgenden, freien Zeile vornimmt. 


Die Anweisung ’Zeilenvorschub’ ist in codierter Form auch 
vom BASIC-Programmierer einsetzbar. Sie entspricht der 
Funktion ’CURSOR DOWN’ ’ N’ (5.1.2). Das Beispiel (5.1.3) 
gibt beide Anweisungen, ’Zeilenvorschub’” und ’Wagenrück- 
lauf’, gemeinsam aus. 


ZEILENVORSCHUB: KODE 10 


ANWEISUNG: PRINT CHR$(10); 


BEISPIEL 


?"111" ;CHR$C10) ;" 222” 


111 


WAGENRÜCKLAUF UND 
ZEILENVORSCHUB: KODE 13 


ANWEISUNG: PRINT CHR$(13); 
BEISPIEL : 

?"111" ;CHR$C13) ;" 222” 

111 
222 





Ein zweiter wichtiger Punkt betrifft die Ausgabe numerischer 
Daten (5.1.4). Hier gelten folgende Regeln: 


Ein positives Vorzeichen wird durch die Aus- 
gabe eines Leerzeichens ersetzt. 





PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


INPUT A: 


X=ASC(A$) 
Y=ASC(A$®) 
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Für Zahlen kleiner als Null wird die Ausgabe 
der Null vor dem Dezimalpunkt unterdrückt. 


Diese Einschränkungen lassen sich entweder durch kurze 
Wandlungsroutinen oder durch die Anweisung PRINT USING 
umgehen. Das Programm (5.1.5) ergänzt das positive Vor- 
zeichen und fügt die führende Null für Zahlen <O an. Als 
Unterprogramm formuliert, kann die Ausgabe numerischer 
Werte mit diesem Programm erfolgen. 


AS=SSTR$CA)+" " 
IF A=0 THEN 90 


: AS=RIGHT$CAS,LENCASI-1): 


IF X=32 THEN X=43 

IF Y=46 THEN A$=CHRS(X)I +" DO" +A$ 
ELSE A$=CHRSCX) +A$ 

PRINT A$: PRINT: GOTO 10 
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5.2 Das Semikolon ’;’ 


Dieses Zeichen in einer PRINT-Anweisung bewirkt die Unter- 
drückung der Steuersequenz CR (Wagenrücklauf) und LF (Zei- 
lenvorschub) am Ende der Ausgabe. Die nächste Ausgabe mit 
PRINT erfolgt dann in derselben Zeile unmittelbar hinter der 
vorherigen. (5.2.1) zeigt, daß nach der Ausgabe eines numeri- 
schen Wertes automatisch ein Leerzeichen eingefügt wird, 
während Zeichenketten :ohne Leerzeichen aneinandergereiht 
werden. 


Innerhalb einer PRINT-Anweisung können Funktionen, Kon- 
stante, Variablennamen und Ausdrücke in Form einer Liste 
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nacheinander benannt werden. Eine Trennung, wenn erfor- 
derlich, geschieht zur Ausgabe innerhalb einer Zeile durch das 
Semikolon (5.2.2, 5.2.3). 


10 PRINT 2; 

20 PRINT "HALLO" ;"X" 
RUN 

2 HALLOX 


PRINT 12;-.13 
213 


AS="HALLO” 
PRINT A$"” LASER” 
HALLO LASER 


PRINT 1,2,3,4 
1 2 
3 4 





5.3 Das Komma ’,’ und TAB (X) 


Das Komma und die Funktion TAB (X) übernehmen in PRINT- 
Anweisungen Tabulator-Aufgaben. Das Komma lenkt die Aus- 
gabe zum Bildschirm auf eine von zwei vortabulierten Posi- 
tionen einer Bildschirm-Zeile. In einer Zeile mit den Spalten 
0 bis 31 sind dies die Schreibstellen O und 16 (5.3.1). 


Die TAB (X)-Funktion erzeugt innerhalb einer Ausgabezeile 
von 64 Zeichen (zwei Bildschirmzeilen) eine Tabulator-Position. 
Das Argument X von TAB (X) muß im Bereich von O bis 255 
liegen. TAB (100) tabuliert in der Position 100-64 gleich 36 
(5.3.2), während TAB (200) in der Spalte 200-(3*64) gleich 8 
tabuliert. Beispiel (5.3.3) zeigt die Anwendung dieser Funktion 
zur rechtsbündigen Ausgabe von Zeichenketten. 


?TAB (100); "X" 









10 A$="HAMBURG" 
20 FOR I=1 TO LEN(A$) 

30 PRINT TAB(15-1)1; LEFT$CA$,D 
40 NEXT 

RUN 














H 

HA 

HAM 
HAMB 
HAMBU 
HAMBUR 
HAMBURG 


5.4 PRINTAT 9’ 


Diese Anweisung ermöglicht die Ausgabe von Zahlen und Zei- 
chenketten ab einer nach ’da ’ definierten Position auf den 
Bildschirm. Als Definition kann eine Konstante, ein numeri- 
scher Ausdruck oder eine numerische Variable verwendet wer- 
den (5.4.1). Der Wert muß im Bereich von O bis 511 liegen, 
entsprechend den 512 Positionen des Bildschirmes (5.4.2). 


Durch die gezielte Ausgabe auf den Bildschirm lassen sich inter- 
essante Effekte erzielen. (5.4.3) gibt eine blinkende Zeile 
auf den Bildschirm aus. Programm (5.4.4) zeigt die Program- 
mierung einer Eingabemaske. Hier wird die Form (5.4.5) 
zum Aufsetzen des Cursors auf eine mit X definierte Bildschirm- 
Position benutzt, um die nachfolgende INPUT-Anweisung 
gezielt zu plazieren. Beachten Sie in diesem Programm auch die 
strikte Trennung zwischen dem Bildtext in DATA-Zeilen 
und dem Aufbau der Maske. 


PRINTa 500," A” 
PRINTQ 12*2,"B" 


A=150 
PRINTa Ax2,"C" 


CLS 

PRINTO 192," LASER210” 
FOR I=1 TO 100: NEXT 
PRINTa 192, "|LASER21d" 
FOR I=1 TO 100: NEXT 
GOTO 10 
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MASKENAUFBAU 
CLS: RESTORE 
FOR A=0 TO 448 STEP 64 
READ A$: PRINTAA,A$: NEXT 


FOR I=0 TO 5: PRINTQ140+(1%*64) ,;:INPUT Z(1,0) 
PRINTO148+(1%*64) , ;: INPUT Z{1,1) :NEXT 

PRINTA444 "OK?" :PRINTA478,"J" :PRINTA476, ;:INPUTJS 
IF ASC(J$)<>74THEN 20 


TEXT BILDAUFBAU 
205 DATA "x***%%* ZENSUREN-VERWALTUNG K#rr%*" 
210 DATA "**FACH** PUNKTE ZENSUR" 
«220 DATA DEUTSCH ENGLISCH MATHE ,PHYSIK,BIOLOGIE,FRANZOES. 


5.4.4 
x%k*%*% ZENSUREN-VERWALTUNG KA*%r% 


**FACH** PUNKTE ZENSUR 
DEUTSCH ? 23 ?6 
ENGLISCH 2? 234 21 
MATHE ? 34 ?4 
PHYSIK ? 78 ?2 





BIOLOGIE 


FRANZOES. 


2? 67 





100 PRINTa X%,;: INPUT AS 


5.5 PRINT USING 


PRINT USING bewirkt die formatierte Ausgabe von Zahlen. 
Die Anweisung USING kann in PRINT-Anweisungen einzeln 
oder als letzte Anweisung mit anderen formatierenden Funk- 
tionen und Steuerzeichen verwendet werden ( TAB(X), ',, 
, a’) (5.5.1). Nach USING ist stets eine Zeichenkette zu 
definieren, die eine Ausgabevorschrift (Maske) für die auszu- 
gebende Zahl enthält. Die Grundelemente dieser Maske sind 
die Zeichen ’#’ und ’.’. Das ’#’ steht für eine Ziffernposition, 
der Punkt als Platzhalter für den Dezimalpunkt (5.5.2). 


Überschreiten bei der Ausgabe die Nachkomma-Stellen die in 
der Maske nach dem Punkt angegebenen Stellen, so wird ge- 
rundet (5.5.3). 


Werden die Stellen vor dem Dezimalpunkt der Maske von der 
auszugebenden Zahl überschritten, so wird die gesamte Zahl 
mit einem vorangestellten '%’-Zeichen ausgegeben (5.5.4). 


USING THH.HH" 


54951 


PRINT USING "HH.H#";8.5 


8.50 


PRINT USING "HHH"; .34 


PRINT USING "##.##" ;315.753 


%315.75 


5.5.4 


PRINT USING "##";-12 
%-12 





PRINT USING 
+12 
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Für das negative Vorzeichen ist ebenfalls eine Stelle in der Mas- 
ke vorzusehen. Die Zahl -12 muß mit ’###’ in der Maske 
zur Ausgabe vorbereitet sein (5.5.5). 


Zur Steuerung der Vorzeichenausgabe bewirkt ein '+’ in der 
ersten Position der Maske die Ausgabe des positiven oder 
negativen Vorzeichens vor der Zahl. Das '+" am Ende der 
Maske bewirkt die Ausgabe des Vorzeichens nach der Zahl 
(5.5.6). 


Ein '--Zeichen am Ende der Maske ermöglicht die Kennzeich- 
nung negativer Zahlen durch ein nachgestelltes Minus-Zeichen 
(5.5.7). 


Ein doppeltes ’*'-Zeichen in den ersten beiden Stellen der 
Maske füllt bei der Ausgabe alle nicht benutzten Positionen 
mit dem ’*'-Zeichen (5.5.8), der sog. Schutzstern. 


Das doppelte ’3’-Zeichen führt zur Ausgabe eines Dollar-Zei- 
chens unmittelbar vor der Zahl. Eine Kombination mit dem 
Zeichen ’**’ ist möglich (5.5.9). 


PRINT USING " 


_12- 


PRINT USING 
12- 

PRINT USING 
12 


PRINT USING 
****12.00 


PRINT USING 
$12.00 
PRINT USING 

-$12.00 
PRINT USING 
**$12.00 





"ARH-" 12 


"RrHHHh. Hu" 12 


349.0 


"SEHHR. HR" ;12 


"SEAHH.HH" ;-12 
"RrSHHHH. HR" ;12 


39949 





POKE 30977,8 

A=112678.989 

PRINT USING 
112,678.99 


A$="HAMBURG" 
PRINT USING 
H***12.24 
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Ein Komma links des Dezimalpunktes trennt jeweils nach drei 
Stellen im ganzzahligen Teil der Zahl (5.5.10). Große Zahlen 
werden so besser lesbar. 


Ein Ausrufungszeichen in der ersten Stelle der Maske veranlaßt 
die Ausgabe des ersten Zeichens einer nach der Maske ange- 
gebenen Zeichenkette. Eine Kombination mit anderen Zeichen 
ist möglich (5.5.11). 


:"DBL.PREC. 


HHHHHHHH,. HR" SA 


59:10 


"IrxHHH. HH" 5A8;12.24 


50,11 


10 FORI=1TO7:READA 


20 PRINT, ,US 
30 NEXT 
100 DATA.123 





INGTHHHHHH, .HH- DM";A 
:12.999,124375.89,-12,375,1.34E2,1.23E-2 


0.12 DM 
13.00 DM 
124,376.00 DM 
.D0-DM 

.80 DM 

.D0 DM 

.01 DM 


Alle nicht mit besonderen Funktionen versehenen Zeichen 
können in die Maske an den ersten oder letzten Stellen aufge- 
nommen werden. Sie werden dann auch an diesen Positionen 
ausgegeben. Programm (5.5.12) demonstriert das. Grundsätz- 
lich wird für jedes Zeichen der Maske auch eine Stelle im Bild- 
schirm reserviert. 


5.6 LPRINT 


Alle mit PRINT zusammenarbeitenden Steueranweisungen 
arbeiten auch mit LPRINT: Ausgabe zum Drucker, zusammen. 
Jedoch sind einige besondere Eigenschaften zu beachten. 
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Das Komma tabuliert in einer Zeile, die 128 Zeichen umfaßt. 
In jeder 16. Spalte ist eine Position vortabuliert. Wird ein 
Drucker mit 80 Zeichen/Zeile verwendet, so werden in der 
ersten Zeile 5 vortabulierte Positionen angesteuert. Der Ab- 
stand beträgt auch hier jeweils 16 Zeichen. 


Werden mit einer LPRINT-Anweisung mehr als 5 Tabulator- 
Positionen angesteuert, so werden in der zweiten Zeile noch 
drei weitere Tabulatoren gesetzt (5.6.1). 


PRINT USING arbeitet in der Form LPRINT USING wie auf 
den Bildschirm. 


Ebenfalls wird das Steuerzeichen ’;’ mit LPRINT zusammenar- 
beiten wie von der Bildschirmausgabe gewohnt. 


Die Funktion TAB (X) tabuliert von X=0 bis X=63 in einer 
Zeile. TAB (64) tabuliert wieder in Spalte 0. Mit LPRINT 
TAB (X) kann man also nur in die Spalten O bis 63 tabulieren. 


LPRINT 1,2,3,4:5:6,7,8,9,10,11,12,13,14 





6 Hilfen für den Programmierer 


STOP, CONT, TRACE ON, TRACE OFF, LIST, DELETE, 
AUTO 


Voraussetzung für eine effiziente Programm-Editierung und 
Fehlersuche ist eine blockförmige Programmstruktur. D.h. der 
Programmierer sollte immer wiederkehrenden Strukturen in 
seinem Programm feste Bereiche der Zeilennummern zuordnen. 
Schon beim Listen des Programmes auf den Bildschirm kann 
so gezielt auf einzelne Abschnitte zugegriffen werden. Der nach- 
folgende Rahmen für ein BASIC-Programm fußt zum Teil auf 
programmtechnischen Überlegungen. So ist zum Beispiel das 
Auffinden von Unterprogrammen für den Interpreter wesentlich 
schneller, wenn sie am Anfang des BASIC-Programmes stehen. 


GOTO 20000: SPRUNG ZUM HAUPTPROGRAMM 
UNTERPROGRAMME, Z.B. RECHNEN, STRINGMANIPULATIONEN 
SCHLEIFEN MIT INKEY$ 

INPUT VON DER FLOPPY 

PRINT AUF DIE FLOPPY 

DRUCKER :HAUPTUNTERPROGRAMME 
FORMATIERUNGS-UNTERPROGRAMME 

AUSGABE AUF ANDERE PERIPHERIE ( KASSETTE) 
FORMATIERUNGSANWEISUNGEN FÜR ANDERE PERIPHERIE 
DATA - READ - ROUTINEN 

DATA-ZEILEN, GESAMMELT 

HAUPTPROGRAMM *#+*+rrrr%*% 

INITIALISIERUNG DER AM HÄUFIGSTEN GEBRAUCHTEN 
VARIABLEN MIT DIM 

MENUE ZUR HAUPT-ABLAUFSTEUERUNG 

BEFEHLSEBENE MIT ON...GOTO 30000,40000,.... 


6.0 





In einem so aufgebauten Programm läßt sich mit dem LIST- 
Kommando zum Überarbeiten des Programmes schnell auf ein 
Teilstück zugreifen. 


LIST 


Der Vollständigkeit halber sei das LIST-Kommando hier kurz 
angesprochen: LIST (CR) rollt das gesamte Programm über den 
Bildschirm. Schnell-Leser können die Ausgabe an der gewünsch- 


LIST 

LIST 10 

LIST 100-200 
LIST -1990 
LIST 100- 


INPUT "DEZ.ZAHL ®-255”;D 
FOR I=7 TO © STEP -1 


PRINT SGN (D AND 211); 
NEXT I: PRINT 
LIST 20-40 


DEZ.ZAHL 98-255? 127 
0113717171717 
20 FOR I=7 TO 8 STEP -1 
30 PRINT SGN (D AND 2TTI); 
40 NEXT I: PRINT 





EDELETE 19 
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ten Stelle durch Betätigen der Leertaste (SPACE) anhalten 
und mit nochmaligem Drücken fortsetzen. (6.1) zeigt die mög- 
lichen Parameter des LIST-Kommandos. Der ’—’ steht für von 
Anfang bis ...’ oder ’bis Ende’. Übrigens kann LIST als letzte 
Zeile im Programm stehen. Ein Probelauf wird dann immer 
mit dem Auslisten der gerade bearbeiteten Routine abgeschlos- 
sen (6.2). (Anm: Diese kleine, aber wirkungsvolle Routine 
wandelt eine Dezimalzahl in eine Binärzahl!) 


BASIC-UP: DELETE 


Eine weitere Hilfestellung wird wieder von der BASIC-UP- 
Erweiterung bereitgestellt: die DELETE-Anweisung. Sie wird 
mit Parameter gegeben und löscht gruppenweise die Anwei- 
sungszeilen im Programmlisting wie im Parameterteil angege- 
ben. Es ist möglich, mit DELETE # eine Zeile zu löschen, 
jedoch wird man hier lieber die Zeilennummer, gefolgt von 
RETURN, geben. Weiter kann mit DELETE # - # ein Block 
im Programm von Zeile X bis Zeile Y gelöscht werden. 
DELETE -Y löscht vom Programmanfang bis zur angegebenen 
Zeilennummer. 


Als Editieranweisung sollte DELETE nicht im Programm be- 
nutzt werden. Eine entsprechende Fehlermeldung wird dann 
ausgegeben. 


EDELETE 200 - 300 


BDELETE - 199 





AUTO - Automatische Zeilennummern-Vorgabe 


Die Anweisung AUTO X,Y gibt im Editier-Modus automatisch 
die jeweils nächste Zeilennummer vor, wobei X die Zeilen- 
nummer ist, ab der die Vorgabe beginnt. Y ist die Schrittweite. 
AUTO 10,10 erzeugt Zeilennummern ab 10 in 10er-Abstand, 
also 10, 20, 30 usw. 


Wird AUTO ohne Parameter eingegeben, so wird automatisch 
auf 10,10 geschaltet. AUTO 350,50 numeriert ab 350 mit 
Schrittweite 50, AUTO ‚5 numeriert ab 10 mitSchrittweite 5 und 
AUTO 130 entspricht 130,10. Das Betriebssystem hält alle 
Routinen dieser Funktion vor. Das Wort ’AUTO’ wird nicht 
erkannt, jedoch kann die Funktion mit drei POKE-Anweisungen 
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eingeschaltet werden (6.4). Mit CTRL-BREAK wird die automa- 
tische Numerierung abgebrochen. Wird die letzte POKE-Anwei- 
sung (6.4) erneut gegeben, so wird der AUTO-Betrieb mit der 
nächsten, folgenden Nummer wieder aufgenommen. 


AUTO EINSCHALTEN: 


(Methode 1) 


POKE 30946,10 
(STARTNUMMER LSB) 

POKE 30947, 
(STARTNUMMER MSB) 


POKE 30948 ,10 
(SCHRITTWEITE LSB) 

POKE 30949 ,® 
(SCHRITTWEITE MSB) 


POKE 30945 ,255 
(START, RESTART) 


AUTO EINSCHALTEN 


(Methode 2) 
10 PRINT 19,10: ’ERSTE ZEILE! 


(VON DER TASTATUR:) 
POKE 31469,183: ’TOKEN AUTO 


(START AUTO-FUNKTION:) 
RUN 


(RESTART DER AUTO-FUNKTION 
NACH BREAK:) 


POKE 30945 ,255 





BASIC-UP - AUTO X,Y 


Der AUTO-Modus kann mit der- BASIC-Erweiterung BASIC-UP 
eingeschaltet (6.5) und ebenfalls mit CTRL-BREAK unter- 
brochen werden. 


BAUTO 
BAUTO 350. 50 


BAUTO ‚5 
BAUTO 130 
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TRACE ON - TRACE OFF, 
Schrittweises Abarbeiten des BASIC-Programmes 


Eine weitere Funktion des Betriebssystemes, die ebenfalls nur 
mit POKE-Anweisungen ein- und ausgeschaltet werden kann, 
ist die schrittweise Abarbeitung des Programmes oder eines 
Programmteiles mit Ausgabe aller bearbeiteten Zeilennummern 
auf den Bildschirm. 


Es lassen sich mit dieser Funktion besonders Verzweigungs- 
anweisungen wie IF...THEN... ELSE und GOTO, GOSUB, 
ON...GOTO... und ON...GOSUB... testen. Die Anweisungen 
zum Einschalten dieser Betriebsart ("TRACE ON’) und zum 
Abschalten ('TRACE OFF’) zeigt (6.6). Das Beispiel (6.7) 
wird das Programm zum Umrechnen von dezimalen Zahlen in 
binäre (6.2) im TRACE-Betrieb ausgeben. Deutlich wird hier 
die Arbeitsweise: Eingeben von der Tastatur und Ausgeben auf 
den Bildschirm werden normal angezeigt, während in spitzen 
Klammern nacheinander die bearbeiteten Zeilennummern auf 
den Bildschirm gegeben werden. Eine genaue Programmanalyse 
ist so möglich. 


POKE 31003,63: "TRACE ON 


POKE 31003, : "TRACE OFF 
6.6 


RUN 

DEZ.ZAHL ®-255? 127 
07971717179 
READY 


POKE 31003,63 

READY . 

RUN 

<10>DEZ.ZAHL 88-255? 127 

<20><30> B <A4B><30> 1 <AB><30> 1 
<LO><30> 1 <4B><30> 1 <4d><30> 

1 <40><30> 1 <40><30> 1 <4d> 

READY 

COPY 





6.7 


STOP und CONT und CTRL/BREAK 
Die regulären BASIC-Anweisungen STOP und CONT sind 
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ebenfalls zum Austesten der vom Anwender geschriebenen 
BASIC-Programme vorgesehen. 


Die Taste CTRL/BREAK gleicht in ihrer Wirkung der Anwei- 
sung 'STOP'. Beide unterbrechen den Programmablauf, STOP 
an definierter Stelle im Programm und CTRL/BREAK bei Be- 
tätigung dieser Tastenkombination. CONT steht für CONtinue 
und setzt das Programm mit der nächsten zu bearbaitenden 
Anweisung fort. - Wie nun können diese Anweisungen zum 
Auffinden von Fehlern eingesetzt werden? Dies sei an einem 
Beispiel erklärt: 


In einem einigermaßen strukturiert aufgebauten Programm (sie- 
he Anfang dieses Kapitels!) wird in einem Programmteil ein 
Fehler vermutet. Vor dem Beginn und am Ende des Programm- 
teiles wird jeweils eine 'STOP’-Anweisung eingefügt. Mit Errei- 
chen der ersten STOP-Anweisung wird das Programm mit der 
Meldung ’'STOP in XX’ abgebrochen, wobei XX die Zeilen- 
nummer ist, in der die STOP-Anweisung ausgeführt wurde. 
Es besteht nun für den Programmierer die Möglichkeit, Daten 
für den Programmteil neu zu definieren, das Programm mit der 
Anweisung 'CONT’ fortzusetzen und mit dem zweiten STOP 
das Ergebnis der Datenverarbeitung von der Tastatur her abzu- 
fragen. 


Eine schrittweise Kontrolle, nicht des Programmlaufes wie bei 
TRACE ON’, sondern der Bearbeitung aller Daten, ist so mög- 
lich. Beispiel (6.8) zeigt die Bildschirmkopie einer solchen Ar- 
beit. Ein Programm, das mit der CTRL/BREAK-Taste abge- 
brochen wurde, läßt sich ebenfalls mit CONT wieder aufneh- 
men. Für beide Arten des Abbruches muß einschränkend 
gesagt werden, daß nach Änderungen im Programmlisting 
nicht wieder mit CONT gestartet werden kann. Ein neuer Pro- 
grammstart mit RUN ist dann unter Verlust aller bisher erar- 
beiteten Daten notwendig. 


Soll ein mit STOP abgebrochenes Programm an anderer Stelle 
fortgesetzt werden, so kann von der Tastatur mit GOTO XX 
ohne Datenverlust der Programmlauf an der mit XX bezeich- 
neten Stelle fortgesetzt werden. 


Zum Beispiel (7.8): In einer Schleife werden vier Feldvariablen 
mit dem Quadrat der Schleifenvariablen belegt. In einer mit 
STEP -1 rückwärts laufenden Schleife werden die Ergebnisse 
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ausgegeben, jedoch nicht vier, sondern fünf. Die Zeile 35 STOP 
wird zum Test eingegeben. Der Probelauf zeigt dann, daß der 
Schleifenzähler nach Beendigung der Zeile um 1 größer ist, 
als der mit TO definierte Wert. Die Ausgabeschleife wird dann 
also 5 Ausgaben auf den Bildschirm bringen. 





FOR I=1 TO 4 
AC(I)=It2 
NEXT I 
FOR I=I TO 1 STEP -1 
PRINT A(I); 
NEXT 

RUN <CR> 


0169471 


READY 


35 STOP <CR> 
RUN <CR> 


BREAK IN 35 
READY 


PRINT I,ACI) <CR> 
5 0 





7 Textgrafik, Funktion und Anwendung 


2000 Zeichen Auflösung, Viertelgrafik, ein Viertel lernt laufen 


Der Bildschirm des LASER kann im Textbetrieb (MODE (0)) 
512 Zeichen darstellen: 16 Zeilen*32 Zeichen. Jede Speicher- 
zelle des Video-RAM läßt sich mit der Anweisung POKE be- 
schreiben und mit PEEK lesen. In BASIC-Programmen läßt 
sich eine Speicherzelle mit der Basisadresse 28672 und den 
Koordinaten X (Position in der Zeile) und Y (Zeilennummer) 
beschreiben, wobei X die Werte O bis 31 und Y die Werte 
O bis 15 annehmen kann. Eine Zeichenposition läßt sich also 
mit 28672 + (Y*32) + X beschreiben. In der im Anhang dar- 
gestellten Aufteilung des Bildschirmes liegt die markierte 
Zeichenposition in der Zeile 8 und der Spalte 7. Die zugehö- 
rige RAM-Speicheradresse ist dann: 


28672 + (8*32) + 7 = 28935 





VIDEO-RAM: 


45° 





Mit POKE adresse,code ist so jedes Zeichen gezielt auf den 
Bildschirm zu bringen. (Codes: Siehe Anhang 13.) 

Das Beispiel (7.3) bringt in die 12. Zeile, 20. Spalte ein ’A’. 
Beachten Sie, daß die Spalten- und Zeilennumerierung jeweils 
mit ’0’ beginnt! Beachten Sie auch, daß der Code für den Bild- 
schirm nicht mit dem ASCII-Code identisch ist! 

2000 Zeichen Auflösung bei Grafik! 


Der Grafik-Zeichensatz umfaßt 16 Zeichen der Viertel-Grafik. 
Für die 8 Farben des Video-Controllers ist jeweils ein Zeichen- 
satz vorhanden. 


Mit der Viertel-Grafik wird die Auflösung im Textbetrieb von 
512 auf 2048 Punkte gesteigert! 


Um die 8*16 Zeichen nun gezielt einzusetzen, soll nachfolgend 
der Aufbau und die Organisation dargestellt werden. 


28672 - 29183 
78808H - 7IFFH 


ZEICHENADRESSIERUNG: 


28672 + (Yx32) + X 


10 X=20: Y=12 


20 BR=28672 


30 POKE BR+(Y*32)+X,1 





Jede Bildschirmposition ist in vier Rechtecke unterteilt. Die 
Kombination gesetzter und gelöschter Viertel ermöglicht die 
Darstellung von 16 Zeichen. Wird der Bildschirmcode eines Gra- 
fikzeichens binär dargestellt, so ist in den vier niederwertigen 
Bits das Zeichen codiert, die Bits 4-6 beschreiben die Farbe 
und Bit 7 zeigt gesetzt die Grafik an. 


Wenden wir uns jetzt den Bits 0-3 zu: Mit diesen vier Bits 
lassen sich alle 16 Grafikzeichen codieren. Bit O beschreibt das 
rechte untere Viertel, Bit 1 das linke untere. Entsprechend wird 
Bit 2 rechts oben und Bit 3 links oben anzeigen. Wird im Grafik- 
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zeichen ein Viertel gesetzt, so wird die entsprechende Bitpo- 
sition auf 1 gesetzt. 


Das Grafikzeichen [ wird also durch die Binärzahl 0100 dar- 
gestellt. 


BASIC läßt keine Binärzahlen zu. Um zum Erstellen von 
Grafiken in BASIC den notwendige Code dezimal zu errechnen, 
ist jedem Viertel ein "Wert’ zugeordnet (7.7). Der Zeichencode 
errechnet sich als Addition der Werte der gesetzten Viertel. 


Beispiel: 

a" 1+8=9 

W 1+2=3 

[ ı1+2+8=11 
Vergleichen Sie mit der nebenstehenden Tabelle! Mit dieser 
dezimalen Zahl haben wir aber noch nicht die Codezahl des 
Grafikzeichens. Addiert werden muß noch die Farbwertigkeit 
zum Zeichencode sowie der Wert für Grafik = 128! 


76543210 


| en 
Farbe (s. Tabelle) 


Flag Grafik 
0=Text 
i=Grafik 

1» 
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Beispiel: Berechnung des Codes für das Zeichen 5 
mit der Farbe 'cyan’: 








Zeichencode =1+2+38 = 11 
Farbe = Cyan = 80 
Grafikwert = 128 


Mit POKE zu setzender Code = 219 


Verwenden Sie das Beispiel-Programm 7.3 zur Kontrolle! 


KODE WERT 


D] 
[ed 
TV 
=) 
[8 
8 
". 
"| 
F 
u) 
u 
u 
es 
| 
[. 
= 


MAGENTA 
ORANGE 111 


10 6R=128: BR=28672 
FORC=0T0127 STEP16 
FORZ=1 T015 
CH=GR+C+Z 
POKE BR,CH 
BR=BR+1 
NEXT Z,C 





Aus dem bisher Erfahrenen kann nun ein Demonstrationspro- 
gramm konstruiert werden, das die Grafikzeichen in allen 8 
Farben berechnet und auf den Bildschirm bringt (7.10). 


Um nun auf dem Bildschirm grafisch zu arbeiten, müssen die 
Zeichen manipuliert werden können. Dazu muß jedes Viertel 
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des Grafikzeichens gelesen, gesetzt und gelöscht werden kön- 
nen. Beispiel: 


Ein gesetztes Viertel unter der Video-RAM-Adresse BR soll 
um ein Viertel-Quadrat nach rechts versetzt werden (7.11). 
Folgende Schritte sind notwendig: 

1. Video-RAM unter BR lesen. 

2. Feststellen, welches Viertel gesetzt ist. 

3. Ist das linke Viertel oben oder unten 

gesetzt, dann ... 

... linkes Viertel löschen, 

... rechtes Viertel setzen, 

... und unter BR in das RAM eintragen. 

4. ist das rechte Viertel oben oder unten ge- 

setzt, dann ... 

... BR um eins erhöhen. 

... rechtes Viertel löschen, 

... linkes Viertel setzen, 

... und unter BR eintragen. 


VORHER: 


BR BR+1 


t 
En; - 


NACHHER: 





10 BR=28672 
20 POKE BR,200 
30 IF BR<29184 THEN 
GOSUB 100: GOTO 30 
40 END 
100 FC=INT(PEEK (BR) /16)*16 
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110 ZC=PEEK(BR)I-FC 

120 POKE BR,FC 

130 IF ZC=8 
THEN ZC=ZC AND 7 OR 4 
ELSE ZC=ZC AND 11 OR 8 
: BR=BR+1 

140 POKE BR, ZC+FC 

150 RETURN 





A = PEEK (BR) 
7.14 


Ein "’Viertel’’ lernt Laufen! 


Das folgende Programm bewegt ein Viertel-Quadrat über den 
Bildschirm! (7.13) 


Zeile 10 legt den Anfang des Bildschirm-RAM fest, Zeile 20 
schreibt das erste Grafikzeichen ein. Die folgende Zeile stellt das 
Hauptprogramm dar, das solange das Unterprogramm 100 auf- 
ruft, bis das Ende des Video-RAM erreicht ist. Die Zeilen 100 
und 110 lesen unter BR das letzte Zeichen und stellen Grafik- 
und Farbcode in FC und den Zeichencode in ZC ein. Zeile 120 
löscht dann das letzte Zeichen. Zeile 130 errechnet den neuen 
Zeichencode als Funktion des alten Codes und erhöht, wenn 
notwendig, die Video-RAM-Adresse BR. Die Zeile 140 schreibt 
das neue Zeichen auf den Bildschirm, in 150 erfolgt die Rück- 
kehr zum Hauptprogramm. - Lassen Sie uns nun Zeile 130 
noch etwas genauer ansehen! 


Da wir in Zeile 20 das erste Grafikzeichen mit dem Code 200 
initialisiert haben, arbeiten wir mit der Farbe 'Braun’ und der 
Viertel-Wertigkeit = 8. In ZC haben wir also im ersten Durch- 
lauf eine 8 zu erwarten. 
Wenn ZC =8, DANN ist das Zeichen = ee] 

SONST istesein [ mit Wert =4. 
Wenn es eine 8 ist, dann wird das Zeichen mit dem AND-Ope- 
rand 7 verknüpft: 


Ergebnis 0 0000 ..... [_| 


Das Zeichen ist gelöscht! 


50 





Ergebnis 4 0100 ..... [ 
Das rechte obere Viertel ist gesetzt! 


Vollziehen Sie die Verknüpfung nun für den ELSE-Teil der An- 
weisung nach! Dort muß aus einer erkannten 4 wieder eine 8 
werden. Zum Wechsel von 4 nach 8 muß außerdem die Video- 
RAM-Adresse erhöht werden. 


POKE BR,code 
1 


IF PEEK (BR) AND 1 
THEN (gesetzt) 


ELSE (nicht gesetzt) 
7.16 





Nachfolgend finden Sie eine Zusammenfassung der BASIC- 
Anweisungen zum Lesen, Schreiben, Testen, Setzen und Lö- 
schen der Grafikzeichen und Grafikviertel: 


* Lesen einer Bildschirmzelle (7.14). 
* Schreiben einer Bildschirmzelle (7.15). 


* Test, ob ein Viertel gesetzt oder gelöscht ist (7.16). 
AND 1 testet Viertel mit Wert 1 
AND 2 testet Viertel mit Wert 2 
AND 4 testet Viertel mit Wert 4 
AND testet Viertel mit Wert 8 
* Ein Viertel wird gelöscht (7.17). 
AND 210 löscht Viertel mit Wert 1 
AND 195 löscht Viertel mit Wert 2 
AND 165 löscht Viertel mit Wert 4 
AND 105 löscht Viertel mit Wert 8 
(Farbcode und Grafikwert werden nicht verändert!) 
* Ein Viertel wird gesetzt (7.18). 
OR 1 setzt Viertel mit Wert 1 
OR2 setzt Viertel mit Wert 2 
OR4 setzt Viertel mit Wert 4 
OR8 setzt Viertel mit Wert 8 


Natürlich lassen sich mit entsprechenden Operanden auch 
mehrere Viertel gleichzeitig setzen, testen und löschen. 


zz; Te 
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POKE BR, PEEK(BR) AND 210 
7:17 
POKE BR, PEEK(BR) OR 1 
7.18 


Das nachfolgende Programm erzeugt ein Balkendiagramm zur 
grafischen Darstellung von 10 Zahlenwerten in V(I) mit Farben, 
die im Feld F(l) abgelegt sind. Versuchen Sie nun, die Funktion 
dieses Programmes anhand des Flußdiagrammes nachzuvoll- 
ziehen. 








SCHEETFE-T.. "1 ;BIS»10 


POSITION 1. ZELLE VIDEO- 
RAM FÜR BALKEN ERRECHNEN 


RAM LESEN 


RAM NICHT MIT GRAFIK- J 


ZEICHEN BESCHRIEBEN? 
N 


MIT[EJ BESCHRIEBEN? 
[d EINTRAGEN 
SCHLEIFENENDE J,I 












[B EINTRAGEN 


RAM-ZEIGER -32 





10 CLS 
2e0 FOR I=1 TO 10: READ VCI),FCI): NEXTI 

30 DATA 2,128,12,144,14,160,15,176,21,192 
40 DATA 23,208,8,224,14,240,23,128,22,144 
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100 FOR I=1 TO 10 
110  Y=15: X=4+(1=2): GOSUB 210 
120 FOR J=1 TO V(D 


130 A=PEEK(PR): IF A=32 OR A=96 THEN A=® 

140 IF AAND FCI)+1 THEN POKE PR, A OR F(I)+5 
: GOSUB 200: GOTO 160 

150 POKE PR, A OR F(I)+ 


NEXT J 
170 NEXT I 
180 END 


2009 Y=Y-1 
210 PR=28672+{Yx32)+X: RETURN 


FERREFEEEEERREEFPEEEEE 
A 
EREEEB BEEEREEEBEEEERERERENENE 
SFHERERRESBECHEEEEEFFFEFFN 
SDRENZESNEREREITERBENAENENEENE 
EIEIRESEBRERBERENHEAEENNIERZENEN 
ERREERLEELBERREEF IE ERLERNTE 
HH 
SRRIERSBESERNSEINEEEND 
FEREFEEFFFFFFERREEREFEEEFEREFE 
7 
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8 Mehr Grafik und Ton 


Das Zeichen ” +", INVERS, Cursor-Steuerung, 
COLOR mit dem LASER 110, MODE und Hintergrundfarbe, 
BUZZER ein-aus 


8.1 Das Zeichen "*"" 

8.2 INVERS 

8.3 Cursor-Steuerung 

8.4 COLOR mit dem LASER 110 
8.5 MODE und Hintergrundfarbe 
8.6 BUZZER ein-aus 


8.1 Das Zeichen ’’*" 


Im Zeichensatz des LASER ist ein Zeichen vorhanden, welches 
nicht über die Tastatur erzeugt werden kann: Es ist "*"". Es 
kann jedoch mit den Anweisungen wie in (8.1.1) an Zeichen- 
ketten an- oder eingekettet werden oder, wie in (8.1.2), direkt 
auf den Bildschirm gebracht werden. 


8.2 INVERS 


Zeichenketten können als Konstanten INVERS auf den Bild- 
schirm gebracht werden (8.2.1). 


Die Tastenkombination [CTRL] setzt oder löscht ein 
Bit im Flagregister 7838H des Betriebssystems. Die Ausgabe von 
Variablen und Konstanten auf den Bildschirm kann so durch 
Setzen oder Löschen des INVERS-Flag normal oder INVERS 


PRINT CHR$ (95) 
e 


En CHR$ (223) 
[el 


« 
POKE 28672,31 
POKE 28672.,95 





100 A$=A$+CHR$ (95) +B$ 


10 PRINT" HAMBUR 


INVERS ein. 





INVERS aus. 
8.2.1 
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POKE 30776,PEEK(30776) OR 2 


8.2.0 


POKE 30776, PEEK(30776) AND 253 
| 8.2.3 | 


10 A=123.375 
20 POKE F,PE 
30 PRINT AsF 
40 POKE F,PE 


>50 PRINT AsF 
RUN 

123:375 
123.375 


Cursor links 
Cursor rechts 

Cursor aufwärts 
Cursor abwärts 


Cursor "Home 


:F=30776 
EK{F) OR 2 


EK(F) AND 253 


30776 
30776 





8.2.4 
erfolgen. (8.2.2) setzt das Flag, alle im Programm folgenden 
Ausgaben werden INVERS abgebildet. (8.2.3) löscht das Flag, 
die folgenden Ausgaben zum Bildschirm werden normal ge- 
bracht. Das kleine Programm (8.2.4) zeigt die Anwendung. 


8.3 Cursor-Steuerung 


Alle Cursor-Steuerbefehle, die beim Editieren der Programme 
von der Tastatur gegeben werden, lassen sich auch in das Pro- 
gramm aufnehmen. Menue-Steuerungen, Eingabe-Masken, -Ab- 
sicherungen und Grafiken lassen sich so optimal erstellen 
(8.3.1). Die Ausführung dieser Funktionen im Programm wird 
mit PRINT CHR? (Code) programmiert, oder der Code wird 
mit dem String-Verkettungsoperator "+" an oder in einen 
String gekettet. Das Beispiel (8.3.2) sichert eine Eingabe ab. 


Beispiel (8.3.3) ermöglicht zur Eingabe verschiedener Werte die 
Vorgabe eines häufig benutzten Wertes (Default-Wert). Dieser 
Wert kann dann entweder mit RETURN übernommen werden, 
oder er wird überschrieben. 


'Clear Screen’ 
CR (RETURN) 
Insert 
Rubout 
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Die Cursor-Steuercodes lassen sich mit INKEY$ von der Tasta- 
tur übernehmen und weiterverarbeiten. 


100 INPUT "WELCHES FACH” ;K 


110 IF K<1 OR K>7? THEN PRINT CHRS(C27) ;CHRSC27):: GOTO 100 
O3 Y2 








10 PRINT "IHRE WAHL__2"”;CHR$(8) ;CHRS(8) ; CHR$CE) 
20 INPUT I 
RUN 


IHRE waHL? [2] 







8.4. COLOR ... mit dem LASER 110 


Obwohl der LASER 110 keine Farbe auf dem Bildschirm er- 
zeugen kann, kennt er die Anweisung COLOR. Sie kann sinn- 
voll eingesetzt werden. 


Die Tastenkombination CTRL/N erzeugt das Wort 'COLOR’ 
auf dem Bildschirm. Wird die Anweisung mit dem Parameter 
1, wie in (8.4.1) gegeben, so verbessert sich der Kontrast des 
Bildes auf dem Monitor oder TV-Empfänger. 


Weiterhin lassen sich Grafiken in verschiedenen Grauwerten 
darstellen. Eine Tabelle der Grauwerte erzeugt das Programm 
(8.4.2). 


Da der LASER 110 mit dem gleichen Betriebssystem arbeitet, 
wie es der Color-Computer LASER 210 besitzt, kann der 
PAL-Farbcoder ohne weiteres nachgerüstet werden (Anhang 8). 
Die BASIC-Anweisung COLOR wird dann einwandfrei arbeiten 
und wie bei den Color-Computern LASER 210, 310 und VZ200 
die angewiesene Farbe erzeugen. 


COLOR,1 <RETURN> 
8.6.1 


10 FOR I=1 TO 8 
20 COLOR I 


30 PRINT I;" —E-SSHIFE 
40 NEXT I 





8.4.2 
8.5 MODE und Hintergrundfarbe 
Der Video-Controller des LASER läßt zwei Betriebsarten zu: 


1. Text und Viertelgrafik 
2. Hochauflösende Grafik 
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Die Umschaltung erfolgt in BASIC mit der Anweisung MODE 
(x). Nach dem Einschalten ist die Text-Betriebsart initialisiert. 
Mit MODE (1) wird auf hochauflösende Grafik geschaltet. 
MODE (0) schaltet zurück auf den Textbetrieb (8.5.1). 


Die Steuerung der Umschaltung erfolgt über das 'Output Latch’ 
(8.5.2). Bit 3 schaltet auf Textbetrieb, eine 1’ schaltet die 
hochauflösende Grafik ein. 


Bit 4 steuert entsprechend die Hintergrundfarbe und selektiert 
im "hochauflösenden Grafik-Betrieb’ je drei Vordergrund- 
farben (siehe Tabelle 8.5.3). 


In BASIC kann die Hintergrundfarbe wie in (8.5.4) direkt oder 
aus dem Programm heraus bestimmt werden, ohne daß die 
Vordergrundfarbe genannt wird. 


Das Steuern der Betriebsart und der Hintergrundfarbe mit der 
POKE-Anweisung erübrigt sich, da mit den Anweisungen 
MODE (x) und COLOR leistungsfähige Möglichkeiten für den 
BASIC-Programmierer vorhanden sind. 


MODE (8) : TEXT UND VIERTELGRAFIK 


MODE (1) : HOCHAUFLOSENDE GRAFIK 
8.5.1 











5 4 3 2 1 0  68060H 
9 Io lo |- ]- Io | WRITE ONLY 


T t_ BUZZER 
DISPLAY MODE 
BACKGROUND 


BUZZER 







8.9.2 


TEXT | GRAFIK 


Is Fr 
4 BRAUN 










BRAUN/CYAN 
ORANGE 
MAGENTA 
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COLOR,® : GRÜN 


COLOR,1 : BRAUN 





8.6 BUZZER ein-aus 


Bit O und Bit 5 des in 8.5. beschriebenen "Output Latch’ steuern 
den Buzzer. Auch hier wird normalerweise die Ansteuerung 
mit der BASIC-Anweisung SOUND vorgenommen werden. 
Jedoch unterhält das Betriebssystem unter der Adresse 783BH/ 
30779 eine Kopie des Output Latch. Über dieses Register 
läßt sich der Buzzer ein- und ausschalten (8.6.1). 


POKE 30779,® : BUZZER ’AUS’ 


POKE 30779,1 : BUZZER ’EIN’ 
8.6.1 





9 Peripherie-Steuerung mit INP und OUT 


USER-Port: Steuerung mit INP und OUT 
Schaltungen und Beispiele in BASIC 


Der LASER-Computer (LASER 110, 210, 310, VZ200) verfügt 
über ein System der Interface-Steuerung, das es ihm ermöglicht, 
Daten und Steuerbefehle mit externen Geräten auszutauschen. 


Dieser Datentausch erfolgt unter insgesamt 256 Adressen, von 
denen je 16 einem vorhandenen oder möglichen Gerät zuge- 
ordnet sind. 

Von diesen 16 Ein- und Ausgabekanälen sind die ersten acht für 
Systemfunktionen reserviert. Das Betriebssystem steuert über 


Ein-Ausgabekanäle der LASER-Computer 
Adr. (10) Adr. (16) Gerät 


Printerinterface 
Floppy Disk Controller 
Joystick Interface 


Reserviert für zukünftige 
Erweiterungen des Systems 
64 KB-RAM Memory Bank Schalter 


Frei für Anwender-Erweiterungen 
User-Port-Modul 





3,1 


LASER 110 

LASER 210 

LASER 310 
VZ 200 
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t 3-6 7 
PRINTER- 9 FLOPPY oisK! JOYSTICK- 2 | System- 1 64KB BANK- 


INTERFACE CONTROLLER || INTERFACE J SCHALTER 


l N 
' ' 


<] PERIPHERIE-Bus > 


! 
Y 


i 1 j 
USER-PORT |! Frei für '! Anwender- |Eiveterungen! 
(ERRSRE, 13 EREBENNE : 10 12JL 


INP (adresse) 


A= INP (X) 


OUT adresse 
OUT 254,130 





‚datum 


diese Kanäle Drucker und Floppy-Disk-Controller, liest die 
Joysticks und schaltet die RAM-Speicherbänke der RAM- 
Erweiterung (9.1 und 9.2). 


Die anderen acht Kanäle sind für Anwenderfunktionen vorge- 
sehen. Hier ist inzwischen ein USER-Port-Modul lieferbar. 


Die Steuerung des Datenverkehrs und der Datenaustausch 
selber können nun aus eimer Assemblerroutine oder aus einem 
vom Anwender geschriebenen BASIC-Programm heraus vorge- 
nommen werden. 


Für das Einlesen von Daten stellt der BASIC-Interpreter die 
Funktion INP (X) zur Verfügung. Die Variable X, auch Kon- 
stante, muß eine Integerzahl von O bis 255 sein. Mit ihr wird 
die Adresse definiert, unter der Daten von einem der Peri- 
pheriegeräte eingelesen werden sollen (9.3). 


Mit der Anweisung OUT X,Y werden aus dem BASIC-Programm 
Daten- und Steueranweisungen an das durch die Integerzahl X 
angesprochene Gerät übergeben. Die übermittelten Daten im 
Bereich von O bis 255 werden hier durch die Variable Y dar- 
gestellt. Für X und Y können auch Konstanten oder Funk- 
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tionen zur Beschreibung der Werte genannt werden (9.4). 


Ein Beispiel für das Einlesen von Daten aus einem Peripherie- 
Gerät zeigt schon das Kapitel zur Programmierung der Joy- 
Sticks. 


Die 64 KB RAM-Erweiterung 


Die 64 KB RAM-Erweiterung belegt einen Speicherbereich von 
32 KB. Sie ist in vier Speicherbänke von je 16 KB aufgeteilt 
(9.5). Nach dem Einschalten des Gerätes wird der zur Verfügung 
stehende RAM-Bereich von den Speicherbänken ’0’ und '1’ 
belegt. Dadurch stehen dem BASIC-Programmierer insgesamt 
32 KB RAM-Bereich zur Verfügung. Ein größerer Speicherbe- 
reich ist physikalisch nicht möglich, außerdem kann auch der 
BASIC-Interpreter nicht mehr als 32 KB RAM verwalten. 


BANK © 1: H-- 
BANK BANK EINGABE CMOS 


BANK-UMSCHALTUNG 


- 
un 


OUT 127,8 BANK @ 
OUT 127,1 BANK 1 


OUT 127.2 BANK 2 + Era 
Port Kir 


OUT 127,3 BANK 3 





10K| | EINGABE EINGABE TTL 
SCHALTER U. SVCMOS 


+5 
| jr 
" Port > "Port 


TTL-INTERFACE C-MOS-INTERERFACE 


“5 
308 | 
4 0 | 
> 
"Port Lu0s Port 


ANSTEUERUNG LED ANSTEUERUNG RELAIS 9.7 
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Die Benutzung der Speicherbänke ’2’ und '3’ in einem BASIC- 
Programm ist problematisch, zeigt doch Anhang 11, daß dann 
im Bereich der Bank ’1’ der Zeichenkettenbereich und der 
BASIC-Stack liegen würden. Wird nun die Bank ’1’ durch die 
Bank '2’ ersetzt, so verliert das BASIC-Programm alle als Zei- 
chenketten abgelegten Daten, und die im Stackbereich verlore- 
nen Informationen über GOSUB-Rückkehradressen und aktive 
FOR-NEXT-Schleifen werden zu einem Zusammenbruch des 
BASIC-Interpreters führen. 


Trotzdem kann ein BASIC-Programmierer die vorhandenen 
Bänke nutzen. Denkbar wären in den Bänken '2’ und '3’ As- 
semblerroutinen und Datenspeicher, die aus dem BASIC-Pro- 
gramm mit POKE beschrieben und mit PEEK zurückgelesen 
werden. Durch Versetzen des Zeigers 'Top Of Memory’ (s. Ka- 
pitel 12) kann das BASIC-Programm in der Bank ’0’ laufen. 


Unter Kontrolle einer ML-Routine (Machine Language) lassen 
sich alle Bänke problemlos nutzen. Sinnvoll ist es, in einer Bank 
das Hauptprogramm abzulegen und die anderen Bänke für die 
Ablage von Unterprogrammen und Daten zu nutzen. Es muß 
nur jeweils der Umschaltmechanismus kontrolliert eingesetzt 
werden. 


Die Bankumschaltung ist als "Write Only Latch’ an den Peri- 
pheriebus angeschlossen. Dementsprechend erfolgt die Um- 
schaltung in BASIC-Programmen mit der OUT-Anweisung 
(9.6). 


Der USER-Port 


Der User-Port ist Gerät 16 am Peripheriebus. Er ist eine uni- 
verselle Schaltung zur Steuerung von Elektroniken aller Art 
und besteht in der Hauptsache aus einem Multifunktions-Chip 
vom Typ’ 8255. Vierundzwanzig Leitungen lassen sich unter 
Programmkontrolle als Eingänge oder als Ausgänge benutzen. 
An sie lassen sich TTL- oder CMOS-Schaltungen anschließen 
und Transistoren, LED’s und Relais ansteuern. Verbunden mit 
der Elektronik einer Modelleisenbahn oder angeschlossen an 
Alarmanlage, Heizungssteuerung oder andere Elektroniken, 
kann das BASIC-Programm Steuerung und Auswertung über- 
nehmen. (9.7) zeigt Interface-Möglichkeiten. Die folgenden 
Seiten zeigen mit Schaltungsbeispielen die Programmgestaltung 
und Anwendung. 
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Der USER-Port wird unter der Adresse 255 für die vorgesehene 
Anwendung eingestellt. Die 24 Ein-/Ausgabeleitungen sind in 
drei Gruppen zu je 8 Leitungen organisiert: Port A, Port B und 
Port C. Durch Eintrag in das Kontrollregister 255 wird festge- 
legt, welcher Port als Eingang und welcher als Ausgang arbeiten 
soll. Unter drei weiteren Adressen können diese Ports nun ge- 
setzt oder gelesen werden (9.8). 





KONTROLLREGISTER SETZEN 


PORTC SCHREIBEN 
LESEN 


PORTB SCHREIBEN 
LESEN 


PORTA SCHREIBEN 
LESEN 





9.8 


9.1 Digital/Analog-Wandler 


Es wird eine sägezahnförmige Ausgangsspannung erzeugt. 


10 OUT 255,139 :°"KONTROLLREGISTER PORT A AUSGANG 
20 FOR I=d TO 255 : "RAMPE IN 256 SCHRITTEN 

30 OUT 252,1 :"AN D/A-WANDLER VON PORT A 

40 NEXT I 

50 GOTO 20 :"NAECHSTER IMPULS 







8 Datenitg. 
IO - PORTA IE D/A WANDLER 
ND 





9.2 8-Bit Analog/Digtial-Wandler 
Es werden kontinuierlich analoge Werte zu digitalen Werten gewandelt und ange- 
zeigt. 


10 PORT B INPUT - PORT CO-C3 OUTPUT - PORT C4-C7 INPUT 
20 "PORT A OUTPUT 


30 OUT 255,138 :"PORTS KONFIGURIEREN 
40 OUT 254,1: OUT 254,0 :"START OF CONVERSION 
50 PRINT INP (253) : "WERT ANZEIGEN 


60 GOTO 40 :"NAECHSTEN WERT LESEN 
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8 Datenitg. 





Port B Us 
PortC} | Handshakeltg! 
GND 





9.3 Ein-/Ausschalten von Relais zur Steuerung beliebiger Verbraucher 
Eine Lampe wird ein- oder ausgeschaltet. 


10 OUT 255,139 :"PORT A IST AUSGANG 
20 *EINSCHALTEN MIT OUT 252,1 
30 "AUSSCHALTEN MIT OUT 252,0 





9.A. Ein 12V-Motor wird in den Funktionen EIN, AUS, Rechtslauf und Linkslauf 
gesteuert. 


10 OUT 255,153 :"PORT B AUSGANG 
20 "MOTOR RECHTSLAUF EIN OUT 253,1 
30 "MOTOR LINKSLAUF EIN OUT 253,3 
40 "AUSSCHALTEN OUT 253,® 





9.5 Lauflicht mit 8 Lampen 


10 OUT 255,139 :“PORT A AUSGANG 

20 L(1)=1: L(2)=2: L(3)=4 :"BITMUSTER FUER AUSGABE 
22 L(4)=8: L(5)=16: L(6)=32 

24 L(7)=64: 1L(8)=128 


30 FOR I=1 TO 8 :°SCHLEIFE ZUM SCHALTEN 
40 OUT 252,L(]) 
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>50 FOR V=1 TO 1000: NEXT V :"EINSCHALTDAUER 
60 NEXT I :"NAECHSTE LAMPE 
70 GOTO 3® 
ANMERKUNG: 


FUER LINKSLAUF IST ZEILE 38 WIE FOLGT ZU ÄNDERN: 
30 FOR I=8 TO 1 STEP -1 





AO 







IO-PORT A 






A7 





9.6 Ansteuerung eines Vier-Phasen-Schrittmotors 


10 0UT 255,139 :"PORT A IST AUSGANG 

20 w(1)=1: W(2)=2 :"BITMUSTER DEFINIEREN 

22 W(Z)=4: W(A)=8 

30 FOR I=1 TO 4 

40 OUT 252,W(I) :"MOTORWICKLUNGEN SCHALTEN 
>50 FOR V=1 TO 250: NEXT V : "GESCHWINDIGKEIT 

60 NEXT I: GOTO 30 


FUER LINKSLAUF IST ZEILE 30 WIE FOLGT ZU AENDERN: 
30 FOR I=4 TO 1 STEP -1 


FUER HALBSCHRITTBETRIEB WIRD WIE FOLGT GEAENDERT: 

20 WC1)=1:W(2)=3:W(3)=2:W(l4A)=6:WC5)=4:W(6)=12: 
W7)=8:W(8)=9 

30 FOR I=1 TO 8 
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9.7 Rechts/Links-Lauflicht mit Schaltersteuerung 


KEIN SCHALTER °’EIN’: RECHTSLAUF, EIN BELIEBIGER 
SCHALTER ’EIN’: LINKSLAUF. 


10 0UT 255,130 : "PORT A=AUSGANG, B=EINGANG 
20 A=INP(253) :"SCHALTER ABFRAGEN 

30 IF A=0 THEN 200 :°KEIN SCHALTER: RECHTSLAUF 
100 FOR I=128 TO 1 STEP-1 :"SONST LINKSLAUF 

110 OUT 252,1 :°I IST BITMUSTER 1000 0000 
120 I=1/2+1 :"BIT SCHIEBEN, LOOP VAR KORR. 
130 NEXT 1:G0T020 :"NAECHSTE LED AN 

200 FOR I=1 TO 128 2 "RECHTSLAUF 

210 OUT 252,1 : "BITMUSTER IST ERST 0000 0001 
220 I=1%2-1 :"BIT RECHTS SCHIEBEN 


230 NEXTI: GOTO 20 
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10 Programmieren der Joysticks 


ADRESSE 





mit INP (X), ON...GOTO..., ON...GOSUB... 
Die Organisation der Joysticks 


Die Schalter der Joysticks sind in einer Matrix angeordnet 
(10.1). Über die Adressenleitungen AO bis A2 werden die Zeilen 
der Matrix je nach ausgegebener Adresse auf ’0’-Potential 
gelegt. Tabelle (10.2) gibt Aufschluß über die Adressen. 


Mit der Anweisung ’INP (adresse)’ kann der Zustand der Da- 
tenleitungen gelesen werden. Je nach angegebener Adresse 
werden die Datenleitungen DO bis D4 Aufschluß darüber geben, 
welcher Schalter im Moment des Einlesens betätigt war. 


Diese Information, mit INP (adresse) ermittelt, wird in codierter 


RECHTER 
JOYSTICK 


4 
LINKER 
JOYSTICK 


A3 A2 A1 AO 


TASTER FB 

LINKER JOYSTICK 
TASTER FA, RICHTUNG 
LINKER JOYSTICK 
TASTER FB 

RECHTER JOYSTICK 
TASTER FA, RICHTUNG 
RECHTER JOYSTICK 


10.3 
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Form als dezimale Zahl vom BASIC-Interpreter bearbeitet. In 
der Form A=INP (adresse) wird sie in einer Variablen abgelegt. 


Tabelle (10.3) stellt den Zusammenhang zwischen Adresse und 
Funktion her. Sollen die Richtungsinformationen des rechten 
Joysticks ausgewertet werden, so ist die Anweisung ’A= 
INP (46)’ in das Programm aufzunehmen. Entsprechend ist 
für die anderen Funktionen zu verfahren. 


Die mit der INP-Funktion ermittelte Zahl liegt im Bereich von 
0 bis 255, entsprechend den 8 Datenleitungen DO - D7. Da nur 
die Datenleitungen DO bis D4 benutzt werden, wird der mit INP 


(adresse) gelesene Wert mit einer MASKE in einer AND-Funk- 
tion verknüpft. Die Datenbits D5 bis D7 des Wertes der Varia- 
blen werden definiert auf '0’ gesetzt, die informationstragenden 
Bits DO bis D4 werden in ihrem Wert nicht beeinflußt (10.4). 


Die vier Anweisungen zum Lesen der Joysticks sind also: 


NP (39) AND 31 JOY LINKS, TASTER FB 
NP (43) AND 31 JOY LINKS, TASTER FA, RICHTUNG 
NP (45) AND 31 JOY RECHTS, TASTER FB 
NP (46) AND 31 JOY RECHTS, TASTER FA, RICHTUNG 


>Py/ >> 


INP (adr) 


000O0XKXK XXX Ergebnis 
in A 
10.4 





Tabelle 10.5. stellt den Zusammenhang der codierten Informa- 
tionen, die in der Variablen ’A’ hier abgelegt sind, und den Joy- 
stick-Funktionen her. 


Mit Hilfe von AND-Masken lassen sich Einzelinformationen 
unter den beiden Adressen 43 und 46 (Richtung und Taster A) 
lesen. Ein Beispiel: Eine Variable soll nur die Informationen 
Joystick rechts, Taster FA gedrückt oder nicht gedrückt, ent- 
halten. Zeichnung (10.1) zeigt Taster FA an der Datenleitung 
D4. Tabelle (10.3) ergibt die Adresse für Joystick rechts, Taster 
FA. Die Leseanweisung wäre also: A = INP(46). Die Maske 
würde entsprechend (10.4) binär 0001 0000 sein, dezimal wird 
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sich der Wert 16 ergeben. Programm (10.6) zeigt nach RUN, 
daß der Taster FA den Wert O ergibt, sonst wird das Ergebnis 
stets 16 sein. Es sind also alle Funktionen außer Betrieb (=16), 
nur Taster FA zeigt bei Betätigung den Wert O. 


Die Umrechnung von binären Zahlen zu dezimalen Zahlen kann 
mit der Tabelle (10.7) durchgeführt werden. Für alle auf ’1’ 
gesetzten Bits einer achtstelligen Binärzahl ist der Wert ent- 
sprechend der Tabelle zu addieren. Beispiel: 1010 0011 binär 
wird dezimal 1+2+32+128 = 163 ergeben. 


ADRESSE| FUNKTION| RESULTAT 
a 


TAST. FB 
LI„AUFW 
LI„ABW 
RE,AUFW 
RE,ABW 
AUFW. 


A=INP(X) AND 31 
b) A=(INP(X) AND 31)-20 


10.5 


10 A = INP(46) AND 16 
20 PRINT A: GOTO 10 


BINARE WERTIGKEIT 
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ON X GOTO .... ON X GOSUB ... 


Für die Auswertung der Richtungsadressen bietet sich die BA- 
SIC-Funktion ’ON variable GOTO liste,liste' an. Das LASER- 
BASIC aber kennt das Schlüsselwort ON nicht. Da die ausfüh- 
renden Routinen aber im Interpreter vorhanden sind, kann, wie 
in Kapitel 3, als erste Zeile des Programmes, die ON-Anweisung 
in der richtigen Schreibweise eingegeben werden. Anstelle des 
"ON’-Wortes ist ein anderes Schlüsselwort zu schreiben, in (10.8) 
ist es PRINT, dessen Code mit einer POKE-Anweisung von der 
Tastatur zum Code für ON verändert wird. Wird vom Wert der 
INP-Funktion für die Richtungsadressen 20 abgezogen, so wird 
das Ergebnis im Bereich von -5 bis 11 liegen. -5 für Taster FA 
kann mit IF ausgeschlossen werden. Der Code für alle 8 Rich- 
tungen reicht dann von 1 bis 10. 11 ergibt sich für "keine Taste’ 
gedrückt. Damit liegt er im Bereich der ON-Funktion, die als 
Sprungverteiler abhängig vom Inhalt der nach ON genannten 
Variablen arbeitet. Die Variable muß Integer-Zahlen von 1 auf- 
wärts enthalten. Nach GOTO oder GOSUB folgt dann eine Liste 
von Zeilennummern. Mit der Variablen =1 wird zur ersten Zeile 
der Liste verzweigt, mit =2 zur zweiten usw. (10.8). 


Programm (10.9) wendet die ON-Funktion in der geschilderten 
Form an. Es ist als Demonstrationsprogramm für die Joysticks 
gedacht. Je ein Punkt wird im Grafik-MODE(1) über den Bild- 
schirm bewegt. Es lassen sich Zeichnungen auf dem Schirm an- 
fertigen. Taster FB bewegt zusammen mit den Steuerknüppeln 
den Punkt, ohne zu zeichnen. 


2 PRINT A GOTO 100,200,300 
(1. ZEILE IM PROGRAMM) 


POKE 31469 ,161 <RETURN> 
(OHNE ZEILENNUMMER!) 








1 60T03: *2 ON A GOTO 110,120,130.»150,160,170,,190,200,210 
2 

3 ELS: COLOR2,1 :DIM RI(3) ,AD(3) ,W(3): RESTORE 

4 FOR I=0 TO 3: READ AD(I),W(CI): NEXT: MODE (1) 

10 SET (WO) ,WCI): SET (WC2),W(3)) 

20 FOR I=0 TO 3: RICI)=CINPCADCIJAND31)-20: NEXT 

30 IF RI(O)=-5 RESET(W(O),WC1)) 

31 IF RIC2)=-5 RESET (W(2).,W(3)) 

40 C=0: A=RI(1): IF A>0 GOSUB 2 














0) Be a m a na nam 


41 C=2: A=RI(3): IF A>O GOSUB 2 

50 GOTO 10 

110 WLO+EI=SWLO+E) +12 WEI+EISWCI+C)+1: GOTO 202 
120 WCO+EI=WEO+L)+1: WEI+CI=WCI+C)I-1: GOTO 202 
130 WCO+CI=W(CO+L)+1: GOTO 202 

150 WLO+CI=WCO+L)-1: WEI+CI=SWEI+C)+1: GOTO 202 
160 WCOHCI=WCO+C)-1: WEI+CI=WCI+C)-1: GOTO 202 
170 WCO+C)=WCO+C)-1: GOTO 202 

190 WEIFEI=WEI+E)+1: GOTO 202 

200 WEI+CI=SWEI+E)-1 

202 IFW(CO+C)>127THENW (O+C)=127 

204 IF W(CO+C)<O THENW(O+C)=O 

206 IFWC1I+C)>63 THEN W(1+C)=63 

208 IFWCI+C)I<O THENWCI+C)=O 

210 RETURN 

1000 DATA39,0,43,0,45,127,46,63 





BASIC-UP 


(10.10) zeigt die Anwendung der ON-Funktion, wenn vorher 
das BASIC-Erweiterungsprogramm ’BASIC-UP’ geladen wurde. 


BON A GOTO 100,200,300 


BON A GOSUB 100,200,300 





10.10 


11 Maschinennahe Programmierung 


Erstellen von Programmen - Speicherbereitstellung - Schutz vor BASIC - 
CSAVE, CLOAD und CRUN für ML-Programme 


11.1 Einleitung 


Es wurde nun schon vieles über den Gebrauch des LASER-Computers als BASIC- 
Computer geschrieben, und es wird fast selbstverständlich erscheinen, daß er 
BASIC versteht. Dies ist aber nur durch ein Zusammenwirken der Hardware (d.h. 
der elektronischen Bauteile) und der Software (den Programmen BASIC-Interpre- 
ter und Betriebssystem) zu erreichen. Alle Befehle, die in BASIC eingegeben wer- 
den, sei es direkt oder als Programm, und jede Tasteneingabe. werden von dieser 
Kombination von Software und Hardware bearbeitet. Daher scheint es, als ver- 
stünde das Gerät BASIC wie eine Sprache. 


Als Vergleich: Ein eigenes BASIC-Programm ist mit RUN gestartet, und der 
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Rechner versteht keinen BASIC-Befehl mehr, nur noch die im Programm vorge- 
sehenen Kommandos. Das Programm: 


10 PRINT "SYNTAX ERROR”: PRINT "READY": INPUT BEFEHL$ 

20 IF BEFEHL$ <> "BASIC" THEN GOTO 10 
demonstriert dies in einer krassen Weise: Nachdem es gestartet wurde, nimmt der 
Rechner zwar Eingaben an, reagiert aber nur auf den 'Befehl’ BASIC - er schaltet 
BASIC ein. 


Ein BASIC-Programm kann jederzeit mit BREAK unterbrochen werden. In die- 
sem Kapitel wird erläutert, welche Möglichkeiten bestehen, den BASIC-Interpre- 
ter zu unterbrechen und dann die Maschine direkt zu beeinflussen. 


11.2 Aufbau des Rechners 


Der Aufbau des LASER-Computers entspricht prinzipiell dem aller heutigen Mi- 
krocomputer. Der Zentralprozessor vom Typ Z 80 übernimmt die Befehlsaus- 
führung. Die Kommandos werden aus dem Speicher entnommen, aus dem teils 
nur gelesen werden kann (die ROM-Bausteine) und in die zum Teil auch geschrie- 
ben werden kann (die RAM-Speicher). Die ROM’s sind Speicherbausteine, in de- 
nen die gespeicherten Informationen auch nach dem Abschalten erhalten bleiben. 
In ihnen befinden sich der BASIC-Interpreter und das Betriebssystem. In den 
RAM-Speichern können Daten und Programme untergebracht werden. Im Gegen- 
satz zu den ROM-Speichern sind diese Informationen nach dem Abschalten der 
Betriebsspannung aber verloren. 


Der Z 80 Mikroprozessor kann nun eine Reihe von Anweisungen ausführen, die 
insgesamt die sogenannte Maschinensprache darstellen. Zur Einarbeitung in die 
maschinennahe Programmierung sollte die in der einschlägigen Literatur zu fin- 
dende Beschreibung von Funktion, Anwendung und Programmierung durchge- 
arbeitet werden. Hier kann nur ein kurzer Überblick gegeben werden. 


11.3 Aufbau und Funktion 


Für die weiteren Darstellungen in diesem Kapitel sollten die Ausdrücke Bit, Byte 
und hexadezimal bekannt sein. Um Programme in Maschinensprache verarbeiten 
zu können, verfügt die Z80 CPU (Central Processing Unit - Zentral-Prozessor, ZP) 
über eine Anzahl von internen Speichern, sogenannte Register. Die übliche Dar- 
stellung zeigt (12.1). 


Der Ablauf einer Befehlsausführung läßt sich nun so beschreiben: Der Inhalt 
des Programmzählers wird als Adresse an die Speicherbausteine über den Adreß- 
bus (16 Leitungen) ausgegeben. Der an diesem so bezeichneten Speicherplatz be- 
findliche Code wird in das Befehlsregister transportiert und der Programmzähler 
um 1 erhöht. Je nach Befehlscode werden nun unter Kontrolle der CPU Werte aus 
den folgenden Speicherstellen in die Register geladen, bearbeitet, verknüpft und 
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berechnet und neue Operationen vorbereitet. Entsprechend wird der Programm- 
zähler erhöht oder verändert. Ein Maschinenbefehl besteht deshalb aus 1 bis 4 
Speicherworten, die aufeinander folgen. (Ein Speicherwort = ein Byte = 8 Bit. 
Es kann 256 verschiedene Informationen darstellen, die sich durch die. Zahlen 
von O bis 255 ausdrücken lassen.) Solange keine Sprünge erfolgen, werden die Be- 
fehle und Daten aus aufeinander folgenden Speicherstellen in die CPU transpor- 
tiert. 













Zweiter 
Registersatz, 
wie der erste 
aufgebaut. 





ACCUMULATOR 
& BIT 8 BIT 

8 BIT 8 BIT 

8 BIT 8 BIT 

8 BIT 


IX X-INDEX REGISTER 16 BIT 











R REFRESH-REGISTER 
8 BIT 










IY Y-INDEX REGISTER 16 BIT 


I INTERRUPT VEKTOR 








SP STACKPOINTER 16 BIT 


PC PROGRAMMZAHLER 16 BIT 


CR BEFEHLSREGISTER 8 BIT 





11.4 Übergang von BASIC auf Maschinensprache 


Um ein Maschinenprogramm in die Speicher zu laden, benutzt man unter Kon- 
trolle des BASIC-Interpreters den POKE-Befehl. Die den Maschinenbefehlen und 
ihren Operanden entsprechenden dezimalen Zahlen werden mit POKE adresse, 
wert’ fortlaufend in die Speicher geschrieben. 


Bei der Festlegung der Startadresse ist dafür zu sorgen, daß der vorgesehene Spei- 
cherbereich vor Zugriffen des BASIC-Interpreters geschützt wird (siehe hierzu 
Abschnitt 6). Anschließend wird die Startadresse des Programmes in den USR- 
Vektor eingetragen. Das kann durch das Programm (11.2) geschehen. Es ist dazu 
durch die Anweisungszeilen in (11.3) zu ergänzen. 
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Das ML-Programm kann dann mit X = USR(X) gestartet werden. Nach Beendi- 
gung des ML-Programmes mit ’RET’ erfolgt die Rückkehr in das BASIC-Pro- 
gramm, das mit der nächsten folgenden Anweisung fortgesetzt wird. 





Ein Beispiel: (11.2) 


5 ADRESSE = 29184 :"Startadresse des ML-Prgr. 

20 READ WERT% :"Ersten Wert aus ML-Prgr.-Liste 
30 IF WERT%=-1 THEN END :“Ende der Liste 

40 POKE ADRESSE ,WERT% :"In den Speicher eintragen 

50 ADRESSE = ADRESSE +1 :"Adressiere nächste Speicherst. 
60 GOTO 20 :“In Schleife weiterarbeiten 


100 DATA ...,.2232223..., 2 ML-Progr. in dezimalen Werten 
120. DATA 3 were Ende der Kiste mit u, 


10 HB% = AD/256 :"MSB DEZIMAL ERRECHNEN 
12 LB%= AD-(HB%*256) :"LSB ERRECHNEN: 

14 POKE 30863,HB% :"VEKTOR MSB SETZEN 

16 POKE 30862,LB% :"VEKTOR LSB SETZEN 
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11.5 Der USR-Vektor 


Im vorstehenden Programm wurde für den Aufruf eines Maschinenprogrammes 
aus einem BASIC-Programm heraus dieser Vektor gesetzt. Hier nun einige weitere 
Informationen zum USR-Befehl: Nach dem Einschalten und Initialisieren des 
BASIC-Interpreters ist dieser Vektor auf die Fehler-Ausgaberoutine gerichtet. 
Ein Aufruf des ML-Programmes führt so zur 


Fehlermeldung ?FUNCTION CODE ERROR IN XX. 


Ist dieser Vektor nun ordnungsgemäß auf die Adresse der Anwender-Routine 
gerichtet, so kann die Kontrolle mit X = USR (X) an dieses Programm übergeben 
werden. Im einfachsten Falle ist in dieser Funktion X eine Variable, deren Inhalt 
im weiteren Programmlauf keine Rolle spielt, also eine DUMMY-Variable. In an- 
deren Anwendungsfällen kann mit dieser Funktion dem Maschinenprogramm ein 
Parameter übergeben werden, der innerhalb der Klammern als Konstante oder Va- 
riable jeder Art, auch Zeichenkette, definiert werden kann. Die Variable wird mit 
dem Aufruf der USR-Funktion an das BASIC-Register WRA1 übergeben. Wird 
eine String-Variable oder Konstante übergeben, so ist in WRAI ein Zeiger auf den 
String-Deskriptorblock zu finden (Länge und Adresse). Wird die Kontrolle des 
Programmlaufes mit RET als letzte Anweisung des ML-Programmes an BASIC 
zurückgegeben, so wird der Inhalt von WRA1 der Variablen im USR-Befehl zu- 
gewiesen und kann im BASIC-Programm weiter verarbeitet werden. 
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Das folgende BASIC-Programm richtet den USR-Vektor auf die ’BEEP’-Routine 
und legt eine Zeichenkette über WRA1 in A® ab (11.4). 


Die Adressen für WRA1 und dem zugehörigen Variablen-Typflag sind dem An- 
hang 12 zu entnehmen. 


10 POKE 30862,80 : POKE 30863,52 : "USR-VEKTOR AUF BEEP 
20 A$ = USR ("TEST") 
30 PRINT A$ 


RUN 
TEST 





11.6 Warum Maschinensprache? 


Prinzipiell bietet BASIC die selben Möglichkeiten, Programme zu schreiben wie 
mit einem Z 80-Assembler. Der Verzicht auf die Funktionen des BASIC-Interpre- 
ters hat Vor- und Nachteile. 


Die schnelle Ausführung von Maschinenprogrammen ist wohl der Hauptvorteil. 
Das folgende BASIC-Programm invertiert den Bildschirm (Zeilen 20 bis 40). Die 
Zeile 60 legt ein Maschinenprogramm in den von Zeile 10 reserviertem Bereich ab 
und startet es in Zeile 70 - 80. Der vorher von BASIC invers geschaltete Bild- 
schirm wird jetzt mit der Geschwindigkeit eines ML-Programmes wieder auf nor- 
male Darstellung geschaltet. Der Unterschied in der Ausführungs-Geschwindigkeit 
wird so mehr als deutlich. 


5 PRINT"BASIC-START" 


10 REM123456789012345678908 :’RESERVIERT FÜR ML-PROGRAMM 
20 FOR 1%=28672 TO 29183 2"BILDSCHIRM INVERS SCHALTEN 
30 A%A=PEEKK(I%) :"MIT BASIC-GESCHWINDIGKEIT 
40 B%A=A% AND 64 

50 IF B% THEN A%=A% AND 191 ELSE A%=A% OR 64 

60 POKE I%,A% 

70 NEXT I% 

80 FOR 1%=31493 TO 31505 :"ML-PROGRAMM AUS DATA-ZEILEN 
90 READ A% :"LESEN UND ... 

100 POKE I%,A% :’IN REM-ZEILE EINTRAGEN 

110 NEXT I% 

120 POKE 30862,5 :"USR-VEKTOR LOW SETZEN 

130 POKE 30863,123 "UND HIGH BYTE SETZEN 

140 PRINT "ML-START" :"ML-PROGRAMM... 

150 A%= USR (0) 2" STARTEN 

160 END 
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200 DATA 33,0,112,1,0,2,126,238,64,119 
210 DATA 35:11,120,177,32,246,201 


11:3 





Dieser Unterschied resultiert aus der 'Pingeligkeit’ des BASIC-Interpreters, der die 
meiste Zeit damit verbringt, Fehler zu suchen und dem Anwender die Program- 
mierung zu erleichtern; indem er vorbereitete Funktionen zur Verfügung stellt. 


Der Zeitvorteil der ML-Programmierung wird damit erkauft, daß der Anwender 
ohne Schutz vor möglichen Programmfehlern ist. Wenn das Maschinenprogramm 
in (11.5) mit POKE 31509,0 fehlerhaft gemacht und mit A=USR(0) gestartet 
wird, kann beobachtet werden, was ein fehlerhaftes Programm anrichtet. 


11.7 Speicherplatz für Maschinenprogramme 


a) Reservierung im BASIC-Text 


Wie das Beispiel (11.5) zeigt, können kurze ML-Routinen innerhalb des BASIC- 
Programmes in durch REM-Befehl reservierten Speicherplatz geladen werden. 
Das ML-Programm darf dann aber nicht länger als eine BASIC-Zeile werden. Ist 
das ML-Programm geladen, wird es Schwierigkeiten beim Auflisten des Program- 
mes geben. Es sollte in der Phase der Editierung also besonders sorgfältig gearbei- 
tet werden und vor dem ersten Test der ML-Routine das BASIC-Programm auf 
Kassette gesichert sein. 


b) Reservierung im Video-RAM 


Für den Bildwiederholspeicher stehen 2 KB RAM zur Verfügung. Sie werden im 
Adressenbereich 7000H bis 7FFFH decodiert. Im Textbetrieb ('MODE (0)’) des 
Video-Kontrollers werden nur 512 Bytes für die Abbildung auf dem Bildschirm 
benutzt, der restliche Bereich steht für Anwender-Routinen zur Verfügung. Da es 
bei unkontrollierten Zugriffen des Mikroprozessors auf das Bildschirm-RAM zu 
Störungen im Bild kommen kann, sollten hier hauptsächlich Interrupt-Routinen 
und Bildschirm-Informationen abgelegt werden. 


c) Ablage im ’Free Space’-Bereich 


Anhang 11 zeigt, daß es bei laufendem BASIC-Programm zwischen dem Ende der 
Variablentabellen und dem Ende des String-Bereiches einen freien Speicherbereich 
gibt. Auch hier können ML-Routinen abgelegt werden. Allerding ist sicherzu- 
stellen, daß das hier abgelegte Programm nicht von dem sich dynamisch ändern- 
den BASIC-Stack überschrieben werden kann. 


d) Ablage vor dem BASIC-Text 


Wird der Beginn des BASIC-Textes zu höheren Bereichen verschoben, so kann 
zwischen Ende der System-Variablen und dem Anfang des BASIC-Textes Platz 
für Maschinenprogramme geschaffen werden, die vor allen Aktivitäten des BASIC- 


32768,0 <CR> :"ANHANG 16, DREIMAL °0° 
=32161,0 <CR> 
-32766,0 <CR> 


30884,1 <CR> :"BASIC-START-ZEIGER SETZEN 
30885,128 <CR> : "AUF 8001H, 32769 

30969,3 <CR> :"VARIABLEN-START-ZEIGER SETZEN 
30970,128 <CR> : "AUF 8003H, 32771 


11.6 





Interpreters geschützt sind. Ein BASIC-Programm, das dann geschrieben und auf 
Band gesichert wird, wird beim Laden von der Kassette automatisch wieder an 
den selben Platz abgelegt. Das notwendige Umsetzen der Zeiger geschieht durch 
POKE-Anweisungen direkt von der Tastatur. Im folgenden Beispiel soll der Start 
des BASIC-Textes von üblicherweise 7AE8H nach 8000H verschoben werden 
(siehe auch Anhang 11 und 16). Es sind der Reihe nach die folgenden Anweisun- 
gen zu geben (11.6): 


e) Die sicherste Methode: Am Speicher-Ende! 


Die am häufigsten angewandte Methode ist, den Zeiger "Top Of Memory’, der auf 
die letzte RAM-Zelle zeigt, durch zwei POKE-Kommandos umzusetzen. Dieses 
kann im BASIC-Programm auch als erste Anweisung geschehen. Wird danach 
CLEAR XX gegeben, um Platz für Zeichenketten zu reservieren, werden alle vom 
TOM abhängigen Zeiger des Betriebssystems automatisch neu gesetzt. Die An- 
weisung: 
10 POKE 30898, PEEK(30898)-2: CLEAR 1000 

reserviert 2*256 Bytes für ML-Programme, setzt die Zeiger des String-Bereiches 
und den BASIC-Stackpointer neu und reserviert 1000 Bytes für die Ablage von 
Zeichenketten. Es ist wichtig, daß CLEAR mit Parameter gegeben wird, da sonst 
die Zeigerkorrektur nicht durchgeführt wird. Notfalls ist CLEAR 50 oder auch 
CLEAR 1 zu geben. 


11.8 Abspeichern der ML-Programme auf Kassette 


Um eine vom Anwender entwickelte ML-Routine auf Kassette abzuspeichern, ist 
das Programm (11.8) einzugeben. Wie vorher diskutiert, ist für diese Routine (wie 
für das Anwenderprogramm) entsprechend RAM-Platz zu reservieren und das La- 
.deprogramm mit Setzen des USR-Vektors und Aufruf mit X= USR(X) zu starten. 


11.9 Anwender Interrupt-Vektor 


Ein Interrupt-Zeiger unter der Adresse 787DH im RAM ermöglicht es, vom An- 
wender geschriebene Routinen in den System-Interrupt einzubinden. Die einzige 
Interrupt-Quelle ist der Video-Display-Generator, der alle 20 msek einen Inter- 


DI ‚DISABLE INTERRUPT 

LD C,FÜH »KENNZAHL FÜR BINAR-PROGRAMM 
LD HL, (78A4H) ;BASIC-START-POINTER RETTEN 
PUSH HL 

LD HL, (78F9H) ;‚BASIC-END-POINTER RETTEN 
PUSH HL 

LD HL»XXXXH ;HIER STARTADR. EINSETZEN 

LD (78A4H) HL ;ZEIGER AUF START BIN-DATEI 
LD HL,YYYYH ;‚HIER ENDADR. EINSETZEN 

LD (789FH) »HL ;ZEIGER AUF ENDE BIN-DATEI 

LD HL,ZZZZ ;HIER ADR. DES PROGR.-NAMEN 
CALL 34ACH ‚UND ABSPEICHERN 

POP HL „BASIC-END-POINTER HERSTELLEN 
LD (78F9H) HL 

POP HL „BASIC START-POINTER HERSTELLEN 
LD (78A4H) 

El ‚INTERRUPT ZULASSEN 

RET ;RÜCKKEHR ZU BASIC 


7222 DEFM *"NAME"’ ‚HIER PROGR.-NAME MAX. 15 ZEICHEN 
DEFB OOH ‚ABSCHLUSS NAME 


11.8 


LD HL, 7AE9H ;STARTADR. BASIC 

LD (78A4H) HL ;WIEDER HERSTELLEN 

JP 36CFH ‚UND SPRUNG NACH BASIC-START 

‚ ‚HIER START DER ANWENDER ROUTINE 


’ 
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rupt für den Z 80 Prozessor am Anschluß INT auslöst. Es wird MODE] des mas- 
kierten Interrupts benutzt. Da der den Interrupt auslösende Impuls der vertikale 
Synchron-Impuls des Video-Kontrollers ist, sollten Zugriffe auf das Video-RAM 
nur während der Sync-Austastlücke im Interrupt-Programm erfolgen. Störungen 
im Bild sind sonst nicht .zu vermeiden. Wird von der CPU ein Interrupt-Impuls 
empfangen und ist die Ausführung zugelassen, so wird.der Programmlauf bei 
0038H fortgesetzt. (11.10) zeigt die Interrupt-Serviceroutine im ROM1 der 
LASER-Computer: 


In 787DH ist nach dem Einschalten des Computers der Code des RET-Befehles 
eingetragen. Hier kann nun aus einer Anwender-Routine heraus ein JP-Befehl auf 
eine eigene Interrupt-Routine implementiert werden. 


Die Anwender-Interrupt-Routine kann auch mit RET abgeschlossen werden, um 
eine Fortsetzung der ROM-Routine zu erreichen. 


JP 2EB® 


PUSH AF ‚INTERRUPT SERVICE ROUTINE 
PUSH BC ;‚REGISTER RETTEN 
PUSH DE 
PUSH HL 
CALL 787DH ;ANWENDER INTERRUPT 
CALL SCREEN ;‚BILDSCHIRM AUFBAUEN 
CALL CURSOR ;‚CURSOR BLINKEN LASSEN 
CALL KEYBRD ;TASTATUR PRÜFEN 
CALL BUZZER ;‚BEEP, WENN TASTE GEDR. 
POP! HEIL ;‚REGISTER WIEDER HERSTELLEN 
POP DE 
POP BE 
POP AF 
El 
RETI ‚INTERRUPT BEENDEN 
11.10 


ORG 787DH ‚ANWENDER INT RAM-SPRUNG 
INTRAM DEFS 3 ‚DREI BYTES RESERVIEREN 


START EQU 7AE9I ;START ANWENDER-ROUTINE 


L 


ORG START | 

DI ;INTERRUPT ABSCHALTEN 

LD SP,7FFFH ;STACK NEU INITIALISIEREN 

LD A,C3H ;OBJ-CODE DER JP-ANWEISUNG 

LD CINTRAM) A ;IN DEN RAM-SPRUNG-VEKTOR 

LD HL,USRINT ;BEGINN ANWEND. INTERR.ROUTINE 
LD CINTRAM+1)»HL  ;IN SPRUNG-ANWEISUNG 

EI ;INTERRUPT EINSCHALTEN 

F ;WEITER MIT DEM 

; 3... VORDERGRUND-PROGRAMM 


USRINT CALL KEYBRD ;TASTATUR PRÜFEN 
' ‚ANWENDER INT-PROGRAMM 


POP ;RÜCKSPRUNGADR. VOM STACK 
POP ‚REGISTER HERSTELLEN 

POP »FÜR BEENDEN DER INT-ROUTINE 
POP 

POP 

EI ‚INT EINSCHALTEN 

RETI 
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12 Für den Assembler-Programmierer 


Tastatur-Abfrage, CRUN/CLOAD, Character zum Bildschirm, String - 
Ausgabe, Compare-Symbol, Teste nächste Zeichen, Compare DE/HL, 
Test Variablen-Typ, Control-Codes, 

Joysticks, Buzzer-BEEP, Drucker-Steuerung 


Dieses Kapitel stellt eine kleine Sammlung nützlicher Assemb- 
ler-Routinen für die Erstellung von Maschinen-Code vor. 


Tastatur-Abfrage 


Die Tastatur-Abfrageroutine beginnt ab 2EF4H. Die Tastatur 
wird abgefragt und der Tastencode im Register A abgelegt. Die 
Register AF, BC, DE und HL werden geändert. Das Beispiel 
(12.1) wartet auf die Betätigung der Taste RETURN. 


CALL 2EF4H ; TASTATURABFRAGE 
OR A ;TASTE GEDRÜCKT? 
JR Z,SCAN ;‚NICHT GEDRÜCKT 


CP @®DH :TEST ER 

JR NZ,SCAN. KEIN CR 

RET ;ZURÜCK Z. AUFRUFENDEN PROG. 
12.1 





CRUN und CLOAD 


Die Routine CRUN wird bei 372EH aufgerufen, CLOAD bei 
3656H. HL wird als Zeiger auf den Programmnamen benutzt. 
Der Name wird in einem Buffer abgelegt. Die Anführungszei- 
chen sind-Bestandteile des Namens. Beendet wird der String mit 
einem ’0’-Byte. Beide Routinen benutzen das System-RAM des 
LASER-Betriebssystems. Anwenderprogramme sollten diesen 
Bereich nicht benutzen. 


DEFM *""TARGET"” ;NAME DES ZU LADENDEN PROG. 
DEFB ® ;ABSCHLUSS 


‘ 


LD HL,NAME ;ZEIGER PROGR.NAME IN HL 
JP 372EH ;CRUN AUSFÜHREN 


12.2 





DEFB ® :CLOAD OHNE PROGR.NAME 


r 


' 


LD HL,GAME ;ZEIGER AUF NAME 
JP 3656H ;CLOAD AUSFÜHREN 





Character zum Bildschirm 


Die Zeichen-Ausgaberoutine wird bei 033AH aufgerufen. Das 
mit ASCII-Code in A definierte Zeichen wird auf die vom Cur- 
sor-Zeiger bestimmte Stelle des Bildschirmes ausgegeben. Re- 
gister werden nicht geändert. 


LD A,’A’ ;coDE ’A’ IN REGISTER A 
CALL 033AH ‚ZEICHEN AUSGEBEN 

LD A,ODH ;CARRIAGE RETURN AUSGEBEN 
CALL 033AH 
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String-Ausgabe 
Startadresse ist 28A7H. Das Registerpaar HL zeigt auf die 


Zeichenkette. Sie wird mit einem ’0’-Byte abgeschlossen. Alle 
Register werden benutzt. 


LD HL,MSG ;HL IST ZEIGER AUF STRING 
CALL 28A7H ‚STRING AUSGEBEN 


L 


DEFM °’READY’ ‚STRING 
DEFB ODH ;CARRIAGE RETURN 
DEFB' ® ; TERMINATOR 





RST 08H - Vergleiche Symbol 


Eine Zeichenkette, auf die der Zeiger in HL zeigt, wird mit den 
Zeichencodes nach den RST O8H-Aufrufen verglichen. Wird 
Übereinstimmung festgestellt, so wird HL inkrementiert, die 
Kontrolle an die folgende RST 08H-Anweisung übergeben und 
das nächste Zeichen geprüft. Wird keine Übereinstimmung fest- 
gestellt, so wird eine Fehlermeldung (SYNTAX ERROR) aus- 
gegeben und das Programm verzweigt zur erneuten Eingabe. 


"VERGLEICHT ZEICHENKETTE, AUF DIE HL ZEIGT 
;MIT DER KETTE ’A=B=C’ 


L 


RST 08H :TEST, OB ’A’ 
DEFB 41H :HEXCODE FÜR A 
RST 08H :A GEFUNDEN 

DEFB 3DH :NUN TEST, OB = 


® 


RST 08H :OK, NUN TEST, 
DEFB 42H ;oB *B’ 

RST 08H ;OK, TEST 

DEFB 3DH ;oB '=* 

RST 08H ;OK, TEST 

DEFB 43H :0OK, STRING IST A=B=C 


, 


[ 
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Teste nächstes Symbol 


A wird mit dem nächsten Zeichen geladen, auf das das Register- 
paar HL zeigt. Das Carry-Flag wird gesetzt, wenn es ein alpha- 
numerisches Zeichen ist. Leerzeichen und die Kontrollcodes 
OBH und 09H werden ignoriert und das nächste Zeichen geladen 
und getestet. Die zu testende Zeichenkette muß mit ’0’ abge- 
schlossen sein. HL zeigt auf die Anfangsadresse der Zeichenket- 
te minus 1 und wird vor dem Laden eines Zeichens jeweils mit 
1 inkrementiert. 

"EINE VON HL BEZEICHNETE ZEICHENKETTE WIRD GEPRÜFT, OB 

‚SIE TEIL EINER VARIABLEN-ZUWEISUNG IST, OB AUF DAS ° 

;EINE KONSTANTE ODER EIN VARIABLENNAME FOLGT. 


L 


RST 08H :TEST, OB *=", JA?: FOLGENDES 
DEFB 3DH ZEICHEN ADRESSIEREN 
;AUF "=" FOLGENDES ZEICHEN IN 
JR NC»VAR ;NC» WENN VARIABLEN-NAME 
CALL 1E5AH ;HOLE WERT DER KONSTANTE 
JR SKIP :NAECHSTER JOB 
CP 2BH ;NICHT NUMERISCH +, -, ALPHA? 
JR Z,NEXT :+, NAECHSTES ZEICHEN 
CP 3DH ;TEST OB - 
JR Z,NEXT ;-, NAECHSTES ZEICHEN 
CALL 260DH ;OKs ALPHAZEICHEN, JETZT NACH 
;VARIABLENNAMEN SUCHEN 


12:7 
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RST 18 - Vergleiche DE mit HL 


DE und HL werden numerisch miteinander verglichen. Es wird 
DE von HL abgezogen. Vorzeichenbehaftete Integer-Zahlen 
können nur im ‘positiven Bereich bearbeitet werden. Es wird 
nur das A-Register benutzt. Das Ergebnis des Vergleiches wird 
im Status-Register abgelegt: 


CARRY SET HL < DE 
NO CARRY HL > DE 
NZ UNGLEICH 
Z GLEICH 


;IN EINEM STRING (HL ZEIGT AUF ANFANG) WIRD DER NACH 
;*=" FOLGENDE WERT GETESTET, OB ER IM BEREICH 100-500 
;LIEGT. 


L 


RST 08H ;TEST AUF ’=* 


DEFB 3DH er 
;‘=" GEFUNDEN, NAECHSTES ZEICHEN 
JR NZ,ERR ;WENN NICHT NUMERISCH 

CALL 1ES5AH ;HOLE BINAERWERT 

LD HL,500 ;WERT OBERGRENZE 

RST 18H ;VERGLEICH MIT BINWERT 

JR CrERR ;CARRY, WENN WERT >500 

LD HL,100 ;TEST UNTERE GRENZE 

RST 18H ; VERGLEICH 

JR NZ,ERR ;KEIN CARRY, FEHLER! 


[ 





RST 20H - Test Variablen-Typ 


Die Routine kehrt mit einer Kombination numerischer Werte 
im A-Register und Statusflags zurück. Sie orientiert sich am 
"Data Mode Flag’ (78AFH) und legt so den Zahlentyp im Re- 
chenregister WRA1 fest. Der Einsatz sollte kontrolliert erfolgen, 
da einige aufgerufene Unterprogramme das Typflag ändern 
können und so der Wert in WRA1 und das Flag nicht mehr 
übereinstimmen. 


STATUS 


INTEGER NZ/C/M/E 
STRING Z/C/P/E 
SNG.PREC NZ/C/P/O 
DBL.PREC NZ/NC/P/E 


‚NACH EINER INTEGER-ADDITION WIRD DER DATENTYP 
;GETESTET, UM BEI OVERFLOW DEN TYP ZU BESTIMMEN 


L 


LD A,2 ‚TYPCODE INTEGER 


LD (78AFH),A ;IN FLAGREGISTER 

LD BC, (VAL) ‚ERSTER WERT 

LD HL, (VAL2) ‚ZWEITER WERT 

CALL OB2DH ;‚DO INTEGER ADDITION 

RST 20H ‚TEST AUF OVERFLOW 

JP M,OK zRESULTAT IST INTEGER 

r ‚NICHT INTEGER 

‚ ‚TESTE ANDERE TYPEN 

LD (SUM) HL ;INTEGER ERGEBNIS ABLEGEN 


DEFW 125 »16 BIT INTEGERZAHL 
DEFW 4235 ‚16 BIT INTEGERZAHL 
DEFW ® ‚HIER KOMMT ERGEBNIS HIN 
1229 





Bildschirm-Control-Codes 


Alle Cursor-Funktionen können in Maschinenprogrammen aäus- 
geführt werden. 


CURSOR LINKS 08H 
CURSOR AUFW.  1BH 
CURSOR ABW. OAH 
CURSOR RECHTS 09H 
RUBOUT 7FH 
INSERT 15H 
CURSOR HOME ICH 
CLEAR SCREEN 1FH 


LD As1CH ;CURSOR HOME 
CALL 033AH DO 
LD As1FH ;CLEAR SCREEN 
CALL 033AH DO 
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Programmieren der Joysticks 


In Programmen mit Maschinencode können die Joysticks noch einfacher als unter 
BASIC gelesen werden. Das folgende Beispiel liest die Joystick-Matrix und liefert 
als Resultat in den Registern B und C den Joystick-Status. B enthält den Status 
des rechten Joysticks, C den des linken. (Siehe auch Kapitel 6: Programmieren 
der Joysticks.) 


BIT 5 4 3 2 1 0 
FIREA FIRE B LINKS RECHTS ABW. AUFW. 


JOYSTK IN A, (2EH) ‚1. REIHE LESEN 
OR OEOH 
EPL 


LD BsA 
IN A, (2DH) ;2. REIHE 

BIT 4A 

JR NZ, JOYST1 

SET 5,B ;RECHTER JOYSTICK STATUS IN B 


JOYST1 IN A,2BH ;3. REIHE LESEN 
OR OEOH 
CPL 
LD Cs A 
IN A, (27H) ;&4. REIHE LESEN 
BIT 4A 
RET NZ 
SET 5,C ;STATUS LINKER JOYSTICK IN C 
RET 
12.11 





Buzzer 


Unter der Adresse 345CH ist die Routine zu finden, die den Piezo-Lautsprecher 
steuert. Vor Aufruf muß das Register HL mit einer Zahl, entsprechend der ge- 
wünschten Tonfrequenz (Pitch), geladen werden und das BC-Register mit dem 
Code der Tondauer (Duration). Alle Register werden von der Routine benutzt. 


LD HL,259 ; FREQUENZCODE 

LD BC, 75 ; TONDAUER 

CALL 345CH ; TONROUTINE AUFRUFEN 
12,12 


CALL 3450H ; BEEP* ERZEUGEN 
12.13 
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Die Codierung der Tonfrequenz ist umgekehrt proportional zur Tonfrequenz. 
Kleine Zahlen repräsentieren hohe Frequenzen und große Zahlen tiefe. Beispiels- 
weise wird das "kleine C’ mit der Dezimalzahl 526, das ’C’ mit der Zahl 259 und 
das "hohe C’ mit 127 codiert. Die folgende Routine (10.12) erzeugt einen Ton ’C’ 
mit einer Tondauer von 75 Schwingungen. 


Beep-Routine 


Die vom Betriebssystem verwendete Routine, welche bei jeder Tastenbetätigung 
den charakteristischen 'Beep’ erzeugt, beginnt ab Adresse 3450H. Bis auf das HL- 
Register werden alle Registerinhalte zerstört. Um einen solchen Ton zu produ- 
zieren, wird einfach der Aufruf gemäß (12.13) gegeben. 


Drucker-Steuerung 


Um ein Zeichen an den Drucker auszugeben, ist der Zeichencode in das C-Register 
zu laden und die Drucker-Treiberroutine in O58DH aufzurufen. Nach dem Aufruf 
ist der ASCII-Code des Zeichens im A- und im C-Register zur weiteren Bearbei- 
tung enthalten, der Inhalt aller anderen Register ist zerstört. Der Buchstabe ’a’ 
(ASCII 97 dezimal) wird so ausgegeben (12.14): 


LD C,97 ‚CODE IN C-REG LADEN 


CALL 058DH ;DRUCKER-TREIBER AUFRUFEN 
12.14 





Wird ein CARRIAGE RETURN-Steuercode an den Drucker über den Treiber ge- 
sendet, so wird automatisch ein LINE FEED-Code nachgesendet. Wird der Treiber 
mit C-Register gleich ’0’ aufgerufen, so prüft die Treiber-Routine den Drucker- 
Status und liefert das Ergebnis mit. Bit O des A-Registers gesetzt oder gelöscht. 
Außerdem wird die BREAK-Taste getestet und bei gedrückter Taste das Carry- 
Flag gesetzt. 


Drucker-Status 


Eine Routine, die den Drucker-Status prüft, beginnt ab O5C4H. Nach Aufruf lädt 
sie den Status (l/O-Port OOH) in das A-Register und kehrt zurück. Bit O ist '1’, 
wenn vom Drucker das Signal ’BUSY’ erkannt wird, -und ’0’, wenn der Drucker ° 
empfangsbereit ist. Weitere Register werden nicht verändert. 


TEST CALL 05C4H ‚TEST DRUCKER READY 
BIT O,A ‚TEST BIT ® 


JR NZ,TEST WARTEN, WENN BUSY 
12.15 
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CR/LF an Drucker 


Um die CR/LF-Kombination an den Drucker auszugeben, kann eine ab 3AE2H 
beginnende Routine aufgerufen werden. Es brauchen keine Register vorher 
gesetzt zu werden. Die Inhalte aller Register werden geändert. Wird während 
des Druckvorganges oder während der READY-Status abgewartet wird, die 
BREAK-Taste betätigt, kehrt die Routine mit gesetztem Carry-Flag zurück. 


CALL 3AEH ;SENDET CR / LF AN DEN DRUCKER 
JP C,BRK ;NACH ’BRK’, WENN TASTE GEDRUECKT 


;WEITER- WENN NICHT 


12.16 





Anhänge 


Ein Inhaltsverzeichnis für die Anhänge befindet sich am Buchbeginn. 
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LASER PAL COLOR BOARD 
80 - PAL 


EINBAU-ANLEITUNG 


Abgleich 
P-1, P-2 
abwechselnd auf grünes Innenfeld und farblosen Rand einstellen 
PR-1 auf Minimum-Randstörungen einstellen. 
L-1 auf. Minimum-Störungen im Bild einstellen. 





Anhang 9: Variablen-Formate 


POKE 30978,8 : REM VARIABLEN B IN DBL PREC 
DIM A%, AA: BB, Z1%, AA (3,3,3) 

z1$ = "TEST" 

AD = PEEK (30970) * PEEK (30969) 

REM ZEIGER AUF VARIABLEN-TABELLE 

FOR I = 0 TO 80 

PRINT PEEK (AD + I);: NEXT I 


A% INTEGER WERT 








SINGLE 
PRECISION 
AA 


DOUBLE 
PRECISION 
BB 








VARIABLEN-TYP I ı® ZEIGER AUF TEXT-STRING 
NAME (ASCII) STRING-LAENGE 


FOLGEN VARIABLEN AD, I 





FELD 

AA (3,3,3) 

ZAHL FOLGENDER BYTES ERUERBEENENG« | ELEM. ELEM. ELEM. 

ANZAHL DIMENSION 1: 2. 35 
DIMENSION 


64 X 4 BYTES (GESAMTE FELDLAENGE=260 





BYTES 


Anhang 10 


Memory-Mapping 


IN/OUT 
RAM (TV) 2K 





Cartridge Entry RAM-Erweiterungen 
Points 
4000H 
6000H 
VZ 200 
LASER 110 
8000H 8000H 
LASER 210 “16 KB RAM- 
Erweiterung 
9000H f. LASER 110 
und VZ 200 
LASER 310 
CO00H — 
16 KB RAM- 
DOOOH Erweiterung 
f. LASER 210 
FFFFH S 
16 KB RAM-Erweiterung 
f. LASER 210 


(b) 


(c) 


Anhang 11 


7800H 
BASIC System-Variable 
7AE7 
7AE8 
(31464) 
BASIC-Text 
Variablen 
Feld-Variablen 
letzte 
RAM- 
Zelle 


BASIC System-Variable 










78A4H E9H 
78A5H 7AH 





Zeigerwerte gelten für den LASER 110 mit 16 KB Speichererweiterung. 
Die Pfeile markieren eine dynamische Grenze 


Der Stringbereich ist mit 


HP 
TP 

FPA 
FSL 


= Text Head Pointer 

= Text Tail Pointer 

= Field Pointer Anfang 
= Free Space List 


STP 
STSP 
TOM 


CLEAR 1000 definiert 


= BASIC Stack Pointer 
= String Space 
= Top of Memory 


Von ’Power Up’-Routine 


Initialisiert HP 


TP 


Dynamische Zeiger, ppa 
abhängig vom BASIC- 


Programm 
FSL 


Stack-Pointer STP 
(FOR-NEXT, GOSUB) 


Mit CLEAR-Anweisung 


eingestellt STSP 
Mit Speichertest 
festgestellt TOM 


Anhang 12: System-Variablen 


78B9C 
7815 
7816 
7818 
781C 
7820 
783B 
787D 


788E 
7898 
7893 
7896 
7999 
7897A 
7897B 
789C 
7897D 
789E 
789F 


F78AB 
78A2 
78A4 
BAG 
78A? 
78AY 
78AA 
78AB 
78AC 
78AE 
?78AF 


78B8 
78B1 
78B3 
78B5 
78D2 


78D3 


78D6& 


7808 


78DA 
780DC 
78DD 
78DE 


?8DF 
?BE1 
78E2 
78E4 


38732 
s2741 
32742 
39744 
s2748 
39752 
39779 
50845 


39862 
32864 
32867 
32878 
32873 
39874 
30875 
38876 
39877 
32878 


32979 


398889 
32882 
s2a884 
39886 
39887 
532389 
39898 
sa891 
32892 
39894 
Sg895 


39896 
39897 
323899 
Sse981 
32938 


Ssa931 
39934 
32936 


38938 
32948 
32941 
32942 


3909453 
32945 
32946 
329748 


nicht benutzt bis ..... 


ADRESSE DER KEYBOARD-SCAN-ROUTINE 
nicht benutzt bis ..... 


ZEIGER AUF CURSOR-ADRESSE 

COPIE DES OUTPUT-LATCH INHALTES 

INTERRUPT EXIT ADRESSE 

(KANN AUF EIGENE INTERR.ROUTINE GERICHTET WERDEN 
USR- SPRUNGVEKTOR 

ZUFALLSZAHLEN-GENERATOR 

’IN’, ADRESSE, WERT 

’OUT’, ADRESSE, WERT 

LETZTES ZEICHEN NACH °’BREAK’. 

FLAG: EINTRITT IN RESUME-ROUTINE 

ANZ. ZEICHEN IN AKTUELLER ’PRINT’-ZEILE 
AUSGABE-KANAL: 1=PRINTER, 8=VIDEO, -i1=KASSETTE 
FORMAT DER DISPLAY-ZEILE 

FORMAT DER PRINT-ZEILE 

reserviert 


ZEIGER AUF STRING-BEREICH 

AKTUELLE ZEILENNUMMER 

ADRESSE BASIC START 

CURSOR COLUMN POSITION 

ADRESSE TASTATUR BUFFER 

FLAG! 28=KASSETTE INPUT, SONST <>8 
ZUFALLSZAHLENGENERATOR 

WERT DES REFRESH-REGISTERS 

LETZTE ZUFALLSZAHL (2BYTES) 

FLAG: 8=SUCHE VARIABLE, i=NEUE VAR. EINTRAGEN 
TYP-FLAG FÜR VARIABLE IM ACCU WRA1 

Z=INTEGER 3=STRING 4=SNG.PREC 8=DBL.PREC 
ZWISCHENWERT WÄHREND BEARBEITUNG EINES AUSDRUCKS 
ADRESSE HöCHSTE RAM-ZELLE (MEM SIZE) 

ZEIGER AUF NACHSTEN FREIEN PLATZ IN LSPT 

LSPT (LITERAL STRING POOL TABLE) 

ENDE LSPT 


LANGE & ADRESSE EINES STRINGS, DER ZUM STRINGBE- 
REICH TRANSPORTIERT WIRD 

ZEIGER AUF NÄCHSTEN VERFÜGBAREN RAUM IM STRING- 
BEREICH 

ZEIGER AUF LETZTES BYTE DER AKTUELLEN ANWEISUNG/ 
EDIT-FLAG WÄHREND PRINT USING 

ZEILENNR. DES LETZTEN GELESENEN DATA-STATEMENTS 
’FOR’-FLAG: 9 FOR-LOOP AKT. 8=NICHT AKTIV 

FLAG INPUT: ®=KEYBOARD SONST READ 

READ FLAG: 38=RAED-ANW. AKTIV 1=INPUT-ANW. AKTIV 
BEI USING: TRENNER ZWISCHEN STRING & VARIABLE 
PROGR.START-ADR. BEI LOADING UNTER DOS 
AUTO-FLAG: 8=KEIN AUTO <>B=AUTO 

AKTUELLE ZEILENNR. BEI INPUT 

reserviert 


78E6 


78E8 
78EA 
78EC 
78F8 
78F2 
78F3 
78F5 
78F? 
78F9 
78FB 
78FD 
78FF 


7921 


32958 


38952 
32954 


32956 
32960 
32962 
38963 
32965 
30967 
38969 
so9?1 
39973 
323975 


30977 


BEI INPUT: ADRESSE DER AKTUELLEN ZEILE 

BEI RUN: ZEILENNR. DER AKTUELLEN ZEILE 
ZEIGER FÜR BASIC-STACK 

ZEILE, IN DER LETZTER FEHLER AUFTRAT (ERL) 


ADRESSE DES BEFEHLS, BEI DEM ERROR AUFTRAT 
ANFANGSADR. DER ON ERROR ROUTINE 

ERROR FLAG: FEHLER SETZT 255, RESUME SETZT ® 
ADR. DES DEZIMAL-PUNKTES IM BUFFER 

LETZTE AKT. ZEILENNR., VON END,STOP GERETTET 
ADR. LETZTES BYTE BEARBEITET BEI ERROR 
ZEIGER ENDE BASIC/ BEGINN VARIABLEN 

ZEIGER ENDE VARIABLEN/BEGINN FELD-VARIABLEN 
ZEIGER {ENDE FELD) /BEGINN FREE SPACE 

ZEIGT AUF ZEICHEN NACH LETZTEM BEI READ 
GELESENEN ZEICHEN 

DEFAULT-TABELLE VARIABLEN-TYP-BEZEICHNUNGEN 
26 BYTES (A-2Z) 

BEINHALTET EIN VARIABLENNAME KEINEN TYPCODE 
WIRD ER ASU DER TAB. ENTNOMMEN. NEW TRAGT 84 EIN 
ÄNDERUNG DURCH BASIC-UP DEFINT,DEFSNG,DEFDBL 
TRACE-FLAG: 175=TRACE ON &8=TRACE OFF 

CARRY FÜT SCHIEBE-UOPERATIONEN 

X-REGISTER %* WRA1 %*% LSB DBL. PREC 

WRAI DBL.PREC WERT 

WRA1 DBL.PREC WERT 

WRA1 DBL.PREC WERT 

WRA1 LSB INTEGER / SNG.PREC 

WRAI 

WRA1 MSB SINGLE PREC 

WRA1l EXPONENT SNG.PREC 

VORZEICHEN DES ERGEB. BEI MATH. & ARITHM. OPERAT 
ZWISCHENWERT. BEI DBL.PREC ADDITION 
Y-REGISTER * WRA2 x LSB 

WRAZ MSB 


WRAZ EXPONENT 
nicht benutzt 
INTERNER PRINT-BUFFER 


LETZTES BYTE PRINT-BUFFER 
ZWISCHENSPEICHER DBL.PREC DIVISION (DIVISOR) 


Anhang 13: Erweiterter ASCII-Code, Bildschirm-Code 


CHAR | PoKe ascıı 






















| roxe] ascıı] ascıı | cHan|roxe|ascıı|cman]| Poxe] 
32 32 33 34 34 Br 35 





SPACE| 33 ! 
$ 37 37 % 
{ 41 41 ) 
R 45 _ 
0 1 
4 5 
8 9 
< = 
@ A 
D E 
H ı 
L M 
P Q 
T U 
x Y 

] 





d’grau | blau 


BADA® » © = 


139 
143 











h’grau 





167 
171 












EN e3 Eu EI 








RaRsHnBT 


= 






AReSBHODHMTD 
SJeENRAZEME 


ol-Jalzj]=i3je 
MIPABHL® 


KONTROLL-KODE TABELLE 
















ASCII | FUNKTION! ASCII | FUNKTION | ASCIH | FUNKTION | ASCIH | FUNKTION 
FAarTarT Eu EI Fr 
BET a I Be a IE 

CURSOR CURSOR CURSOR 
LINKS RECHTS ABW. LF 
m | | w|eom [ul ||| 
Er BE IE 2 en EB EB 
2 | I lm a BB 
CURSOR CURSOR 27 CURSOR 
LINKS RECHTS AUFW, 
CURSOR CR CLEAR 
HOME SCREEN 








127 RUBOUT 


TABELLE DER NUR MIT POKE DARSTELLBAREN ZEICHEN 


" 195 
# 199 
U 203 
P 207 
u 
w" 
1 
Pi 
[| 225 |) 227 
228 [9 229 230 | 231 
22 |F 233 24 U 235 
236 237 2338, # 239 
u 1 243 
bs ". 247 
E] 1 251 
Pe 255 









DMDDND - 
288% 
Do > 


Ba nl | 
DNDDNDM 
DD a a 
DOoOR®O©O 









253 254 


— 

a a 1 DT I] 
DDNDDM 
Sön 








Anhang 14: Geometrische Funktionen 


Funktion BASIC-Formulierung 


SECANT SEC(X)=1/COS(X) 
COSECANT CSC(X)=1/SIN(X) 
COTANGENT COT(X)=1/TAN(X) 
INVERSE SINE ARCSIN(X)=ATN(X/SQR(-X+X+1)) 
INVERSE COSINE ARCCOS(X)=-ATN (X/SQR(-X#X+1))+pi/2 
INVERSE SECANT ARCSEC(X)=ATN(X/SQR(X+X-1)) 
INVERSE COSECANT ARCCSC(X)=ATN(X/SOR(X+X-1)) 
+(SGN(X)-1)*pi/2 
INVERSE COTANGENT ARCOT(X)J=ATN(X)+pi/2 
HYPERBOLIC SINE SINE(X)=(EXP(X)-EXP(-X))/2 
HYPERBOLIC COSINE COSH(X)=(EXP(X)+EXP(-X))/2 
HYPERBOLIC TANGENT TANH(X)=EXP(-X)/EXP(X)+EXP(-X))*2+1 
HYPERBOLIC SECANT SECH(X)=2/(EXP(X)+EXP(-X) 
HYPERBOLIC COSECANT CSCH(X)=2/(EXP(X)-EXP(-X)) 
HYPERBOLIC COTANGENT COTH(X)=EXP(-X)KEXP(X)-EXP(-X)#*2+1 
INVERSE HYPERBOLIC SINE ARCSINH(X)=LOG(X+SQR(X+X+1) 
INVERSE HYPERBOLIC COSINE ARCCOSH(X)=LOG(X+SQR(X *X-1) 
INVERSE HYPERBOLIC TANGENT ARCTANH(X)J=LOG( I+X)J/A1-X))/2 
INVERSE HYPERBOLIC SECANT ARCSECH(X)=LOG((SQR(-X#X+1)+1)/X) 
INVERSE HYPERBOLIC COSECANT ARCCSCH(X)=LOG((SGN(X)#SQR(X #X+1)/X 
INVERSE HYPERBOLIC COTANGENT ARCCOTH(X)=LOG((X+1)/(X-1))/2 





Anhang 15: Kurzschreibweisen (Shorthands) 


ANWEISUNG ZEICHEN BESCHREIBUNG 


PRINT ? KANN IM BASIC-TEXT BENUTZT WERDEN, 
WIRD ABER ALS *PRINT’ GELISTET 

REM 2 ERSETZT °’REM’ 

LET = STATT LET A=5 KANN A=5 GESCHRIEBEN 
WERDEN 

THEN ‚ KANN VIELFACH ENTFALLEN ODER DURCH 


KOMMA ERSETZT WERDEN, Z.B. 
IF A=® GOSUB 1000 
IF A<>B PRINT "XXXxX” 
ABER: 
IF A>5 „ 200 


; KANN ENTFALLEN, WENN EINE EINWAND- 
FREIE TRENNUNG DER AUSZUGEBENDEN 
VARIABLEN UND KONSTANTEN VORLIEGT, 
Z.B. PRINT A$ B$ "SEMIKOLON” 

ABER: PRINT A;B 


GOTO KANN NACH THEN ENTFALLEN, Z.B. 
IF A>5 THEN 200 


Anhang 16: BASIC Text-Format 


10 A = 12 
20 PRINT A 


FOR I=0 TO 18:?PEEK(31464+I1) ; :NEXT <RETURN> 


30884 
x 





HP 78A4H 
31464 


DZECKEEEE 


a | 
Beginn 


der Zeile Zeigerauf Zeilen-Nr. A Token 1 2 
die nächste binär = 


| 
122*256+242= 31474 


22, | 
0 1249 122| 200 0 178] 65 


Token A 


31480 7 PRINI 949 
STEH — ET 7 on 





Anhang 17 : BASIC Tokens 


128 
151 
134 
137 
148 
145 
146 
149 
152 
155 
158 
161 
164 
167 
1789 
175 
176 
179 
182 
185 
188 
191 
194 
197? 
2988 
295 
2826 
299 
212 
215 
218 
221 
224 
227? 
238 
245 
246 
249 
252 


* 


END 
SET 


LET 

IF 
RETURN 
ELSE 
VERIFY 
<DEFDEL> 


SOUND <ERROR> 


sOoN> 


«Kr x 


CONT 
<DELETE> 
CLOAD 
TAB 
USING 
<SERL> 

* 

sMEM> 
NOT 


ASC 


FOR 

CLS 

NEXT 

DIM 

GOTO 
RESTORE 
REM 

COPY 
<sDEFINT> 
CRUN 
<RESUME> 
* 

* 

* 

* 
<SYSTEM> 
POKE 
LIST 
SAUTO> 
CSAVE 

TO 
<VARPTR> 
<SERR> 
POINT 
INKEY$ 
STEP 

ıx> 

AND 

INT 

INP 


NICHT BELEGTER CODE 
< xX > TOKEN WIRD VON DER ’BASIC UP’-ERWEITERUNG ERKANNT. 


158 
153 
156 
159 
142 
145 
148 
151 
154 
157 
169 
165 
166 
169 
172 
175 
178 
181 
134 
187 
1968 
195 
196 
199 
282 
285 
298 
zii 
214 
217? 
228 
2253 
226 
229 
242 
245 
248 
251 
255 


RESET 
* 
DATA 
READ 
RUN 
GOSUB 
STOP 
COLOR 
SDEFSGN> 
MODE 
OUT 


* 
LPRINT 
PRINT 
LLIST 
CLEAR 
NEW 


SYNC. Bytes 
HEADER 
EXTENSION 


FILENAME 


GAP 


START ADDRESS 


END ADDRESS 
Program Content 
Data Content 
Checksum 

End of File 
Marker (EOF) 


Terminator 


Anhang 18: Tape Loading Format 


T: Text File 


255 Bytes of 80H 
5 Bytes of FEH 
1 Byte of FOH 


16 Bytes (max.) 
of ASCII 


3 ms Blank 
2 Bytes of binary 


2 Bytes of binary 


xx Bytes 


2 Bytes 
20 Bytes of Zeroes 
(00H) 


B: Binary File 


255 Bytes of 80H 
5 Bytes of FEH 
1 Byte of FIH 


16 Bytes (max.) 
of ASCII 


3 ms Blank 

2 Bytes of binary 
2 Bytes of binary 
xx Bytes 


2 Bytes 


20 Bytes of Zeroes 





D: Data File 


255 Bytes of 80H 
5 Bytes of FEH 
1 Byte of FZH 


16 Bytes (max.) 
of ASCHI 


3 ms Blank 


xx Bytes 
2 Bytes 


1 Byte of OOH 


Anhang 19 


Vergleich LASER-BASIC mit verschiedenen BASIC-Dialekten 
Hinweise zum Umschreiben veröffentlichter Programme 


1. LASER-BASIC-Ergänzung durch "EXTENDED BASIC’: 


ON A GOSUB 100,200... DEFINT VARPTR 
ON A GOTO 100,200.... DEFSNG POS (X) 
FRE (0) DEFDBL RANDOM 
FRE ('’”) DEFSTR 

ON ERROR GOTO RECT 

ERL CIRCLE 

ERR PAINT 

RESUME MEMSIZE = HIMEM 

LPEN PLOT ...TO ... 

2. Ton-Kommandos 

Anweisung LASER-BASIC 

500 BEEP 500 SOUND 12,1 

500 CLICK 500 POKE 30862,80: POKE 30863,52 


501 X=USR(0) 
3. FOR ... NEXT-Schleifen 
FOR I=0 TO V wird einmal durchlaufen, wenn V=0 wird. In an- 
deren BASIC-Versionen werden die Anweisungen 
zwischen FOR -- NEXT dann nicht ausgeführt. 
4. Variablen-Namen 
Namen, länger als zwei Zeichen, sind im LASER-BASIC zulässig. Es werden 
jedoch nur die ersten beiden Zeichen gewertet. Z.B. verwendet TI99/4A 16 Zei- 
chen, im SINCLAIR-BASIC werden sogar beliebig lange Namen verwendet. 
Beispiel: 10 WERT=5 
20 WELT=12 
30 PRINT WERT;WELT 
Ein Programmlauf ergibt bei den genannten Rechnern 5 und 12 als Ergebnis. 
Das LASER-BASIC gibt jedoch 12 und 12 aus, da zweimal die Variable WE 
angesprochen wurde. Eine Anpassung der Variablen-Namen ist ggfs. vorzunehmen. 


5. Druckersteuerung 


Die Anweisungen 200 OPEN 4,4,0 
400 PRINT#4,' TEXT” 
490 CLOSE4 


sind gegen 

400 LPRINT’'TEXT" 
auszutauschen, die OPEN- und CLOSE-Anweisungen zu streichen. 
6. Zufallszahlen mit RND (X) 


In einigen BASIC-Versionen erzeugt RND (X) Zufallszahlen im Bereich O bis 1. 
Nachfolgende Anweisungen rechnen diese Zahlen in den gewünschten Bereich um. 
Alle diese Anweisungen müssen entfallen, im LASER-BASIC gilt als Argument X 
die Obergrenze der zu erzeugenden Zufallszahl. 

A=RND (49) 
erzeugt eine Zahl im Bereich 049. 


7. String-Verarbeitung 


BASIC-DIALEKTE LASER-BASIC 

SEG$(AS,1,4) LEFT$CA$,1,4) 

AS(TO 4) LEFTSCASLAV- 

AS (4 TO) RIGHTSCASAILEN fi 
SEG$(AS,6,5) MIDS$(CAS,6,5) 

AS(6 TO 10) MID$(A$,6,5) 

AST) MIDS(A$, 7,1) 

8. Zeichen von der Tastatur übernehmen 

10 GET A$ AS=INKEY$:AS=LEFTSCAS,N) 
10 CALL KEY DITO 


9. PRINT-Anweisungen 


100 PRINTI;SPC(I);I*2 100 PRINT I; 
110 FOR J=0 TO I:PRINT"” ";:NEXTI 
120 PRINT I*2 


100 PRINT "” 100 CLS ‚BILDSCHIRM LOESCHEN 
100 PRING " 100 PRINT CHR$(28) ;CURSOR HOME 
100 INVERS 100 POKE :REM INVERS ON 


100 POKE :REM INVERS OFF 


10 Bildschirmaufbau 


In den meisten Fällen ist eine Neugestaltung des Bildschirmaufbaues notwendig, 
abhängig vom Format des Bildes in Zeilen und Spalten. Die gezielte Ausgabe 
auf den Bildschirm PRINT AT X,Y; wird im LASER-BASIC zu: 

Z=32%*X+Y 

PRINTaZ, 


wobei X und Y die Bildschirm-Koordinaten und Z die direkte Nummer der 
Bildschirmstelle ist. Dabei ist zu beachten, daß einige BASIC-Interpreter die erste 
Bildschirmposition mit O entspr. X=0 und Y=O bezeichnen, während andere 
jeweils 1 einsetzen. 

Die relativen Cursor-Steuerbefehle bei VC- und CBM-Computern sind auf den 
LASER nur mit zeilenlangen PRINTCHR$(xx);CHR$(xx) ...-Anweisungen zu 
übertragen. Ein neuer Bildschirmaufbau wäre sinnvoller. 


11. Genauigkeit der Zahlendarstellungen | 
Siehe Kapitel 1: Variablen doppelter Genauigkeit. 


Grundgeräte 


Zubehör 


Das LASER -Computersystem 


LASER 110 Monochromer Video- und HF-Ausgang 


LASER 210 


LASER 310 


AKB RAM, 2,5 KB für Anwenderprogramme. 
LASER-BASIC V 2.0 


Color-Computer, 8 KB RAM, 5,5 KB für An- 
wenderprogramme. LASER-BASIC V 2.0 


Color-Computer mit 18 KB RAM, Schreib- 
maschinentastatur, BASIC V 2.0 


16 KB RAM-Module für alle Grundgeräte 
64 KB RAM-Moduul mit BANK-Umschaltung 


(4 Bänke & 16 KB) 


Printerinterface für Drucker mit Centronics-Schnittstelle 


Joysticks 
Lightpen 
Floppy-Disk- 
Controller 
Floppy-Drive 


PP-40 


Software 


Steuerknüppel für Video-Spiele, 
von BASIC programmierbar 


Für anspruchsvolle Menue-Technik 
und Grafik-Anwendungen 


Zum Anschluß von zwei 5,25’ Laufwerken 


Laufwerk, 90 KB Kapazität, für 5,25” 
Disketten, Double Density 


Vier-Farben Printer/Plotter, 
40 Zeichen/Zeile. Papier: Rolle 


Über 50 Programme auf Kassette, u.a. Karteikasten, 
Z-80 Assembler, Spielesammlung 


m 
Vertrieb und Händlernachweise, Software-Liste von 
SANYO VIDEO VERTRIEB, Lange Reihe 29, 2 Hamburg 1 


USER-PORT-Modul für 24 IN/OUT-Leitun- 
gen, Interfacebaustein 8255 


Analog-Digitalwandler, Betrieb am User-Port 


Digital-Analogwandler, Betrieb am User-Port 


nm Ent Een abe re a en a ni 


Vertrieb: 


L. Bockstaller, Hadwigstr. 16 
7867 Wehr 2, Tel.: 07761 - 18 08 





